(|SYSTEM|::|VERSION| '(20100806.))
#0Y_ #0Y |CHARSET|::|UTF-8|
#Y(#:|1 18 "************************************************************************\n
 *       (C) Copyright Mark Tarver, 2000-2007, Lambda Associates		*\n
							 											*\n
 *		       	Qi 9.2 Lisp Source Code 								*\n
 *																		*\n
 * Use and copying of this software and preparation of derivative works	*\n
 * based upon this software is permitted, as long as this copyright 	*\n
 * notice is left intact.												*\n
 * 																		*\n
 * This software is made available under the GPL Licence AS IS, and the *\n
 * author makes no warranty about the software, its performance or its  *\n
 * conformity to any specification.										*			\n
 * 																	    *\n
 * You may modify this program, but the copyright notice must remain.   *\n
 *                                                                		*  \n
 * Further details about this program can be found in 					*\n
 * www.lambdassociates.org.												*\n
 ************************************************************************	"-1|
   #13Y(00 00 00 00 00 00 00 00 20 01 C5 19 01)
   ("************************************************************************\n
 *       (C) Copyright Mark Tarver, 2000-2007, Lambda Associates		*\n
							 											*\n
 *		       	Qi 9.2 Lisp Source Code 								*\n
 *																		*\n
 * Use and copying of this software and preparation of derivative works	*\n
 * based upon this software is permitted, as long as this copyright 	*\n
 * notice is left intact.												*\n
 * 																		*\n
 * This software is made available under the GPL Licence AS IS, and the *\n
 * author makes no warranty about the software, its performance or its  *\n
 * conformity to any specification.										*			\n
 * 																	    *\n
 * You may modify this program, but the copyright notice must remain.   *\n
 *                                                                		*  \n
 * Further details about this program can be found in 					*\n
 * www.lambdassociates.org.												*\n
 ************************************************************************	")
   |COMMON-LISP|::|NIL|)
#Y(#:|20 20 "For lots of comments and wisdom, don't look here, look in the file Qi 9.1 in Qi.txt"-2|
   #13Y(00 00 00 00 00 00 00 00 20 01 C5 19 01)
   ("For lots of comments and wisdom, don't look here, look in the file Qi 9.1 in Qi.txt")
   |COMMON-LISP|::|NIL|)
#Y(#:|21 21 "This is 95% machine generated code from Qi, Qi-Prolog and Qi-YACC"-3|
   #13Y(00 00 00 00 00 00 00 00 20 01 C5 19 01)
   ("This is 95% machine generated code from Qi, Qi-Prolog and Qi-YACC")
   |COMMON-LISP|::|NIL|)
#Y(#:|23 23 (IN-PACKAGE "qi")-4|
   #17Y(00 00 00 00 00 00 00 00 20 01 DA 31 F6 0F 01 19 01)
   ("qi" |COMMON-LISP|::|*PACKAGE*|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|25 28 (SETF (READTABLE-CASE *READTABLE*) :PRESERVE)-5|
   #17Y(00 00 00 00 00 00 00 00 20 01 6B 00 DB 30 02 19 01)
   (|COMMON-LISP|::|*READTABLE*| :|PRESERVE| |SYSTEM|::|SET-READTABLE-CASE|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|30 37 (PROCLAIM '(SPECIAL *logical-inferences* *closures* ...))-6|
   #15Y(00 00 00 00 00 00 00 00 20 01 DA 31 62 19 01)
   ((|COMMON-LISP|::|SPECIAL| |qi|::|*logical-inferences*| |qi|::|*closures*|
     |qi|::|*userdefs*| |qi|::|*currfunc*| |qi|::|*dump-file*|
     |qi|::|*strong-warning*| |qi|::|*tempsigs*|
     |qi|::|*read-user-input-characters*| |qi|::|*version*| |qi|::|*exempted*|
     |qi|::|*synonyms*| |qi|::|*allsynonyms*| |qi|::|*maxinferences*|
     |qi|::|*licence*| |qi|::|*start-time*| |qi|::|*thm*| |qi|::|*atp-prompt*|
     |qi|::|*complexity-bound*| |qi|::|*occurs*| |qi|::|*usertypes*|
     |qi|::|*all-usertypes*| |qi|::|*collect*| |qi|::|*problem*|
     |qi|::|*start*| |qi|::|*tactic*| |qi|::|*atp-prompt*| |qi|::|*proof*|
     |qi|::|*call*| |qi|::|*arith*| |qi|::|*assoctypes*| |qi|::|*arity*|
     |qi|::|*sfht*| |qi|::|*tc*| |qi|::|*display-rb*| |qi|::|*inferences*|
     |qi|::|*history*| |qi|::|*qi_home_directory*| |qi|::|*special_forms*|
     |qi|::|*turbo*|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|38 38 (SET-SYNTAX-FROM-CHAR #\\; #\\v)-7|
   #18Y(00 00 00 00 00 00 00 00 20 01 DA DB 38 02 31 79 19 01) (#\; #\v)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|40 56 (DEFUN waffle-off NIL ...)-8|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|waffle-off| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|waffle-off|
       #20Y(00 00 00 00 00 00 00 00 26 01 DA 31 62 00 0F 01 0F 02 19 01)
       ((|COMMON-LISP|::|OPTIMIZE| (|COMMON-LISP|::|SPEED| 3.)
         (|COMMON-LISP|::|SAFETY| 0.))
        |CUSTOM|::|*COMPILE-WARNINGS*| |COMMON-LISP|::|*COMPILE-VERBOSE*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|58 58 (waffle-off)-9| #14Y(00 00 00 00 00 00 00 00 20 01 2E 00 19 01)
   (|qi|::|waffle-off|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|60 67 (DEFUN fix-closures NIL ...)-10|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|fix-closures| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|fix-closures| #15Y(00 00 00 00 00 00 00 00 26 01 C5 0F 01 19 01)
       (#'|COMMON-LISP|::|COMPILED-FUNCTION| |qi|::|*closures*|)
       (|COMMON-LISP|::|NIL| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|69 69 (fix-closures)-11| #14Y(00 00 00 00 00 00 00 00 20 01 2E 00 19 01)
   (|qi|::|fix-closures|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|71 89 (DEFVAR *sysfuncs* '(<e> abstype and ...))-12|
   #24Y(00 00 00 00 00 00 00 00 20 01 DA 31 62 DB 8C 57 04 DB DC 31 5A C6 19
        01)
   ((|COMMON-LISP|::|SPECIAL| |qi|::|*sysfuncs*|) |qi|::|*sysfuncs*|
    (|qi|::|<e>| |qi|::|abstype| |qi|::|and| |qi|::|append| |qi|::|apply|
     |qi|::|assoc| |qi|::|atp-credits| |qi|::|atp-prompt| |qi|::|back|
     |qi|::|boolean?| |qi|::|cd| |qi|::|character?| |qi|::|collect|
     |qi|::|compile| |qi|::|complex?| |qi|::|concat| |qi|::|congruent?|
     |qi|::|cons?| |qi|::|cons| |qi|::|datatype| |qi|::|debug| |qi|::|define|
     |qi|::|defcc| |qi|::|defprolog| |qi|::|delete-file| |qi|::|destroy|
     |qi|::|difference| |qi|::|display-mode| |qi|::|do| |qi|::|dump|
     |qi|::|dump-proof| |qi|::|element?| |qi|::|empty?| |qi|::|error|
     |qi|::|eval| |qi|::|explode| |qi|::|fail-if| |qi|::|fix| |qi|::|float?|
     |qi|::|from-goals| |qi|::|fst| |qi|::|fst-ass| |qi|::|fst-conc|
     |qi|::|system| |qi|::|fst-goal| |qi|::|gensym| |qi|::|get-array|
     |qi|::|get-lambda| |qi|::|get-prop| |qi|::|get-rule| |qi|::|head|
     |qi|::|if| |qi|::|if-with-checking| |qi|::|if-without-checking|
     |qi|::|input| |qi|::|input+| |qi|::|integer?| |qi|::|inferences|
     |qi|::|length| |qi|::|let| |qi|::|lineread| |qi|::|list| |qi|::|load|
     |qi|::|make-array| |qi|::|make-string| |qi|::|map| |qi|::|maxinferences|
     |qi|::|newfuntype| |qi|::|new-assoc-type| |qi|::|not| |qi|::|notes-in|
     |qi|::|nth| |qi|::|number?| |qi|::|occurrences| |qi|::|occurs-check|
     |qi|::|or| |qi|::|output| |qi|::|prf| |qi|::|print| |qi|::|profile|
     |qi|::|profile-results| |qi|::|prooftool| |qi|::|provable?|
     |qi|::|put-array| |qi|::|put-prop| |qi|::|quit| |qi|::|random|
     |qi|::|read-char| |qi|::|read-file-as-charlist| |qi|::|read-file|
     |qi|::|read-chars-as-stringlist| |qi|::|rational?| |qi|::|real?|
     |qi|::|refine| |qi|::|remove| |qi|::|reverse| |qi|::|rotate| |qi|::|round|
     |qi|::|save| |qi|::|set| |qi|::|snd| |qi|::|solved?| |qi|::|specialise|
     |qi|::|spy| |qi|::|sqrt| |qi|::|step| |qi|::|string?|
     |qi|::|strong-warning| |qi|::|structure| |qi|::|subst| |qi|::|swap|
     |qi|::|symbol?| |qi|::|synonyms| |qi|::|tail| |qi|::|tc| |qi|::|theory|
     |qi|::|theory-size| |qi|::|thin| |qi|::|thm-intro| |qi|::|time|
     |qi|::|time-proof| |qi|::|to-goals| |qi|::|track| |qi|::|tuple?|
     |qi|::|turbo| |qi|::|undebug| |qi|::|unprf| |qi|::|union|
     |qi|::|unprofile| |qi|::|untrack| |qi|::|value| |qi|::|version|
     |qi|::|unspecialise| |qi|::|variable?| |qi|::|warn| |qi|::|write-to-file|
     |qi|::|y-or-n?| |qi|::|qi_>| |qi|::|qi_<| |qi|::|qi_>=| |qi|::|qi_<=|
     |qi|::|qi_=| |COMMON-LISP|::|+| |COMMON-LISP|::|*| |COMMON-LISP|::|/|
     |qi|::|/.| |COMMON-LISP|::|-| |qi|::|qi_=| |qi|::|==| |qi|::|@c|
     |qi|::|@p| |qi|::|preclude| |qi|::|include| |qi|::|preclude-all-but|
     |qi|::|include-all-but| |qi|::|when*| |qi|::|eval*| |qi|::|eval!*|
     |qi|::|when!*| |qi|::|ask| |qi|::|call-prolog| |qi|::|=*| |qi|::|is*|
     |qi|::|is!*| |qi|::|return*| |qi|::|bind*| |qi|::|fail*| |qi|::|not*|
     |qi|::|==*| |qi|::|=!*| |qi|::|typecheck*| |qi|::|call*| |qi|::|bagof*|
     |qi|::|answer*|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|91 92 (DEFMACRO define (&REST X) ...)-13|
   #23Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC DD 72 4C 32 9C C5 19 01)
   (|qi|::|define| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|define|
       #31Y(00 00 00 00 02 00 00 00 26 03 95 02 DA DB DC DD DE DF B2 7B 02 7B
            02 7B 03 7B 02 61 02 19 04)
       (|COMMON-LISP|::|COMPILE| |COMMON-LISP|::|EVAL| |qi|::|compile|
        '|qi|::|<qi_compile>| |qi|::|remove-escape| |COMMON-LISP|::|QUOTE|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|SYSTEM|::|<MACRO-FORM>| |SYSTEM|::|<ENV-ARG>|) |COMMON-LISP|::|NIL| 1)
    (|COMMON-LISP|::|&REST| |qi|::|X|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|94 94 (DEFUN remove-escape (Code) ...)-14|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|remove-escape| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|remove-escape|
       #19Y(00 00 00 00 01 00 00 00 26 02 DA DB AF 38 03 31 B9 19 02)
       (|qi|::|*qi-failure-object*| #\Escape)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Code|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|96 96 (DEFVAR *qi-failure-object* #\\Escape)-15|
   #24Y(00 00 00 00 00 00 00 00 20 01 DA 31 62 DB 8C 57 04 DB DC 31 5A C6 19
        01)
   ((|COMMON-LISP|::|SPECIAL| |qi|::|*qi-failure-object*|)
    |qi|::|*qi-failure-object*| #\Escape)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|98 136 (DEFUN <qi_compile> (Stream) ...)-16|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<qi_compile>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<qi_compile>|
       #264Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 AC 89 01 80 87 63 EC 61 02
             F8 AC 89 01 80 E9 AE 6F 00 AC 88 01 80 D5 AC 6F 03 AC 88 01 80 A3
             94 00 9E 5C 78 2F 04 6B 05 AC 24 06 80 81 AC 24 0B 80 85 D5 14 AD
             33 01 1E E7 A5 5C 78 30 0E 16 03 1B 3E D5 1B 6E AC 24 0B 37 D5 1B
             67 94 00 9E 5C 78 2F 04 6B 05 AC 25 06 6C A0 5C 78 6F 07 A2 5C 78
             A1 5C 78 AE AF 70 08 E3 6E 04 0A AC E5 70 0C AC 24 06 44 AC 25 0B
             4A A4 5C 78 AF 30 0F 16 03 16 01 A0 5C 78 9F 5C 78 30 11 1B 11 AC
             6F 02 AC 88 01 12 AC 6F 03 AC 89 01 FF B1 63 D7 14 61 02 16 02 1B
             FF 64 63 EC 61 02 16 01 1B FF 5B ED A1 5C 78 30 0E F8 1B 0D A0 5C
             78 A0 5C 78 30 11 F8 1B 02 63 EC 61 02 16 01 1B 26 94 00 EE 9F 5C
             78 30 0E 1B 0D 0E 15 19 05 AF 6F 00 AC 89 01 6B 63 D7 14 61 02 F8
             AC 88 01 6B 15 19 04 63 EC 61 02 F8 AC 88 01 63 15 19 03 15 19 02)
       (|qi|::|<name>| |qi|::|failure?| |qi|::|<signature>| |qi|::|<rules>|
        |qi|::|check_variable_occurrences| |qi|::|*tc*| |qi|::|true|
        |qi|::|curry_type| |qi|::|specialise_type| 1. |qi|::|procedure_T*|
        |qi|::|false| |qi|::|==| "type error in ~A" |qi|::|error|
        |qi|::|record_type| "~S is not a boolean~%"
        |qi|::|compile_to_machine_code| #\Escape
        "~A has not been given a type.~%" "Syntax error in ~A.~%"
        |qi|::|*Failure*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|138 144 (DEFUN procedure_T* (V5371 V5372 V5373 ...) ...)-17|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|procedure_T*| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|procedure_T*|
       #77Y(00 00 00 00 04 00 00 00 26 05 92 03 22 C5 19 05 C5 19 07 C7 19 07
            B1 95 05 B1 96 05 6C 0E AC 24 00 6E AC 24 02 6D C8 1B 1A C7 19 06
            93 03 5E A0 20 16 B0 94 04 B0 B0 6E 04 01 AC 24 00 58 AC 24 02 67
            C8 14 AD 33 01 1E DE 2F 05 19 05)
       (|qi|::|true| |qi|::|type_rule?| |qi|::|false| "~S is not a boolean~%"
        |qi|::|procedure_T*| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5371| |qi|::|V5372| |qi|::|V5373| |qi|::|V5374|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|146 154 (DEFUN specialise_type (V5379 V5380) ...)-18|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|specialise_type| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|specialise_type|
       #76Y(00 00 00 00 02 00 00 00 26 03 92 02 1E 9E 19 03 95 02 DC 6F 03 94
            04 B0 6E 03 04 29 02 05 09 94 02 95 03 33 02 23 1B 19 93 02 62 9F
            20 07 94 02 6F 00 88 01 5B 9F 20 04 9F 5B 21 63 9F 20 08 9F 5C 14
            AE 29 02 05 61 DF 2F 06 19 03)
       (|qi|::|variable?| |qi|::|wrapper| "type" |qi|::|gensym| |qi|::|subst|
        |qi|::|specialise_type| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5379| |qi|::|V5380|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|156 156 (DEFUN gensym (X) ...)-19|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|gensym| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|gensym| #15Y(00 00 00 00 01 00 00 00 26 02 AD 2F 00 19 02)
       (|COMMON-LISP|::|GENTEMP|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|X|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|158 166 (DEFUN type_rule? (V5381 V5382 V5383 ...) ...)-20|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|type_rule?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|type_rule?|
       #94Y(00 00 00 00 04 00 00 00 26 05 A0 20 80 4B A0 5C 20 80 46 A0 5C 5C
            20 80 40 A0 5C 5C 5C 1C 3A 94 03 95 04 B2 AE B2 DA B3 6E 05 01 AC
            24 02 10 AC 24 04 23 CA 14 AD 33 01 1E C7 19 09 C9 19 09 B3 AF 94
            03 A1 5C 78 B5 B5 6E 06 03 AC 24 02 6A AC 24 04 69 CA 1B 5E C9 19
            08 E0 2F 07 19 05)
       (1. |qi|::|integrity?| |qi|::|true| |qi|::|correct?| |qi|::|false|
        "~S is not a boolean~%" |qi|::|type_rule?|
        |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5381| |qi|::|V5382| |qi|::|V5383| |qi|::|V5384|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|168 188 (DEFUN integrity? (V5401 V5402 V5403 ...) ...)-21|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|integrity?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|integrity?|
       #147Y(00 00 00 00 05 00 00 00 26 06 92 04 3F C5 19 06 B1 95 05 A2 5C 5C
             78 96 05 B1 29 05 0B 2B B2 B0 B0 2D 03 0A 19 07 94 04 AC 6F 04 6F
             05 AD 6F 06 94 06 6E 03 07 E2 70 09 24 00 63 B2 95 06 A3 5C 5C 78
             96 06 B2 29 05 0C 00 93 04 41 A1 20 20 A0 20 1D A0 5C 20 19 A0 5C
             78 25 01 13 A0 5C 5C 20 0E A0 5C 5C 5C 1C 08 94 04 6F 02 88 03 FF
             A1 A1 20 19 A0 20 16 A0 5C 20 12 A0 5C 78 25 01 0C A0 5C 5C 20 07
             A0 5C 5C 5C 1D FF 9B B1 E5 AF 2D 03 0A 19 06)
       (|qi|::|true| |qi|::|-->| |qi|::|variable?| |qi|::|wrapper|
        |qi|::|extract_variables| |qi|::|build_patt_env| |qi|::|stvars|
        |qi|::|typechecks?| |qi|::|false| |qi|::|qi_=|
        |qi|::|raise_type_failure| |qi|::|arity|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5401| |qi|::|V5402| |qi|::|V5403| |qi|::|V5404| |qi|::|V5405|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|190 195 (DEFUN extract_variables (V861) ...)-22|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|extract_variables| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|extract_variables|
       #39Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 88 01 06 9E 21 08 00 19 02
            AD 00 5D 19 02 94 01 6C 6B 95 02 6C 67 30 02 19 02)
       (|qi|::|variable?| |qi|::|wrapper| |qi|::|union|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V861|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|197 204 (DEFUN build_patt_env (V5407) ...)-23|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|build_patt_env| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|build_patt_env|
       #47Y(00 00 00 00 01 00 00 00 26 02 92 01 1A 00 19 02 DA 94 02 70 01 DC
            DD 6F 04 00 5D 5D 7A 95 02 28 03 5D 19 02 93 01 66 9E 21 66 DF 2F
            06 19 02)
       (|qi|::|&&| |qi|::|concat| |qi|::|$$| "A" |qi|::|gensym|
        |qi|::|build_patt_env| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5407|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|206 219 (DEFUN raise_type_failure (V5408 V5409 V5410) ...)-24|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|raise_type_failure| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|raise_type_failure|
       #60Y(00 00 00 00 03 00 00 00 26 04 AE 6F 00 88 01 11 AE 24 04 16 AE 25
            06 1B CC 14 AE B1 2D 03 03 19 04 DC AF AF B2 2D 04 03 19 04 CA 1B
            6C E3 AE B1 33 02 1E AE 24 08 76 E4 2F 0B 19 04)
       (|qi|::|number?| |qi|::|wrapper|
        "Integrity Check Failure; pattern ~A of rule ~A of ~A~%" |qi|::|error|
        |qi|::|arity|
        "Integrity Check Failure; patterns and types in rule ~A of ~A~% do not correspond.~%"
        |qi|::|guard| "Match/guard failure in rule ~A of ~A.~%" |qi|::|result|
        "Correctness Check Failure; rule ~A of ~A~%" |qi|::|raise_type_failure|
        |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5408| |qi|::|V5409| |qi|::|V5410|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|221 223 (DEFUN stvars (V5411) ...)-25|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|stvars| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|stvars|
       #35Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 88 01 06 9E 21 09 9E 19 02
            DC AE 30 03 19 02 DE AE 33 00 16 19 02)
       (|qi|::|variable?| |qi|::|wrapper| |qi|::|&&| |qi|::|concat|
        |qi|::|stvars|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5411|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|225 234 (DEFUN correct? (V5412 V5413 V5414 ...) ...)-26|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|correct?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|correct?|
       #69Y(00 00 00 00 06 00 00 00 26 00 B1 6F 00 AF 63 6E 03 01 B3 B1 70 02
            24 03 1D DF AD E0 32 43 14 6F 00 DF AE E1 72 43 B5 AE B6 B6 B6 70
            08 70 09 AF B4 2D 05 0A 19 0A B3 DE B1 00 5D 5D 7A DF AE E0 32 43
            5D 1B 59)
       (|qi|::|stvars| |qi|::|build_action_env| |qi|::|occurs?| |qi|::|true|
        |qi|::|$$| |qi|::|TUPLE| 1. 2. |qi|::|pback| |qi|::|stvars_action|
        |qi|::|execute_correctness_proof|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5412| |qi|::|V5413| |qi|::|V5414| |qi|::|V5415| |qi|::|V5416|
        |qi|::|V5417|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|236 261 (DEFUN stvars_action (V5422 V5423) ...)-27|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|stvars_action| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|stvars_action|
       #219Y(00 00 00 00 02 00 00 00 26 03 AD 6F 00 AC 24 01 17 AC 24 03 80 81
             C9 14 AD 33 01 1E C6 16 01 1B 80 76 C8 16 01 1B 80 70 AE B0 70 02
             AC 24 01 6C AC 24 03 6E C9 1B 60 E0 AE 30 07 19 03 95 01 94 00 95
             01 E2 AE B3 94 03 6C 40 B0 E0 B2 70 07 B6 A3 5C 78 6C FF B4 6E 03
             09 00 5D 5D 5D 5D 19 06 95 01 94 00 E4 AD AE E0 B0 70 07 B4 A3 5C
             78 6C FF 98 6E 03 09 00 5D 5D 5D 19 05 63 AE 1B 0D 94 00 B1 AD 6C
             FF 84 84 02 16 01 83 00 AC 8D 9F 6F 16 01 AC 31 B1 19 04 C8 F8 88
             05 FF 9A 9E 20 1C 94 01 25 08 17 9E 5C 20 13 9E 5C 5C 20 0E 9E 5C
             5C 5C 20 08 9E 5C 5C 5C 5C 1D FF 81 9E 20 15 94 01 25 0A 10 9E 5C
             20 0C 9E 5C 5C 20 07 9E 5C 5C 5C 1D FF 8C 9E 21 FF A3 9E 19 03)
       (|qi|::|variable?| |qi|::|true| |qi|::|occurs?| |qi|::|false|
        "~S is not a boolean~%" |qi|::|wrapper| |qi|::|&&| |qi|::|concat|
        |qi|::|let| |qi|::|subst| |qi|::|/.|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5422| |qi|::|V5423|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|263 298 (DEFUN pback (V5429 V5430) ...)-28|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|pback| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|pback|
       #217Y(00 00 00 00 02 00 00 00 26 03 AE 24 00 80 81 9E 20 3B 94 01 25 01
             36 9E 5C 20 32 9E 5C 5C 20 2D 9E 5C 5C 5B 20 27 9E 5C 5C 5B 78 25
             02 1F 9E 5C 5C 5B 5C 20 18 9E 5C 5C 5B 5C 5C 20 10 9E 5C 5C 5B 5C
             5C 5C 1C 07 9E 5C 5C 5C 1D 80 46 9E 20 15 94 01 25 01 10 9E 5C 20
             0C 9E 5C 5C 20 07 9E 5C 5C 5C 1D 80 49 9E 20 15 94 01 25 02 10 9E
             5C 20 0C 9E 5C 5C 20 07 9E 5C 5C 5C 1D 80 4E DB DE DF E0 B1 00 5D
             5D 7A 00 5D 7A AF 00 5D 5D 5D 19 03 9E 19 03 95 01 95 00 94 00 95
             00 DB DD 94 05 DE B0 00 5D 7A 00 5D 5D 7A 9F 5C 5D 5D 19 07 95 01
             95 00 DB DD 94 03 DE DF 94 05 E0 00 5D 5D 7A 00 5D 7A 00 5D 5D 7A
             9F 5D 5D 19 05 95 01 DB DE AE 00 5D 7A 9F 5C 5D 5D 19 04)
       (|qi|::|->| |qi|::|where| |qi|::|fail-if| |qi|::|and| |qi|::|not|
        |qi|::|qi_=| #\Escape)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|V5429| |qi|::|V5430|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|300 316 (DEFUN execute_correctness_proof (V5438 V5439 V5440 ...) ...)-29|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|execute_correctness_proof| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|execute_correctness_proof|
       #112Y(00 00 00 00 05 00 00 00 26 06 A0 20 80 53 94 03 25 00 80 4D A0 5C
             20 80 48 A0 5C 5C 20 80 42 A0 5C 5C 5C 1C 3C 95 03 94 00 B2 AD DB
             6E 03 02 DD 70 04 24 05 1D AC 6F 08 B3 73 02 23 9F 5C 78 B2 6E 03
             02 DD 70 04 25 05 0D B3 CE 14 B1 2D 03 07 19 08 B3 CB 1B 75 CA 19
             08 B1 E3 AF 2D 03 07 19 06 B0 B0 B0 6E 03 02 DD 70 04 24 05 6C CA
             19 06)
       (|qi|::|where| |qi|::|boolean| |qi|::|typechecks?| |qi|::|false|
        |qi|::|qi_=| |qi|::|true| |qi|::|guard| |qi|::|raise_type_failure|
        |qi|::|verification_conditions| |qi|::|result|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5438| |qi|::|V5439| |qi|::|V5440| |qi|::|V5441| |qi|::|V5442|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|318 325 (DEFUN verification_conditions (V5445) ...)-30|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|verification_conditions| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|verification_conditions|
       #64Y(00 00 00 00 01 00 00 00 26 02 9E 20 14 94 01 25 00 0F 9E 5C 20 0B
            9E 5C 5C 20 06 9E 5C 5C 5C 1D 0F AD 6F 01 6F 02 DD DE 00 5D 5D 7A
            00 5D 19 02 95 01 94 00 6C 54 9E 5C 78 6C 4F 33 02 23 19 03)
       (|qi|::|and| |qi|::|curry| |qi|::|cons->@c| |qi|::|$$| |qi|::|verified|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5445|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|327 335 (DEFUN build_action_env (V21647 V21648 V21649) ...)-31|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|build_action_env| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|build_action_env|
       #77Y(00 00 00 00 03 00 00 00 26 04 92 03 20 AD AF 30 00 19 04 95 03 A0
            5C 5C 78 94 05 6F 02 DD 94 06 00 5D 5D 7A A1 7A 29 03 07 00 93 03
            60 A0 20 18 9F 20 15 9F 5C 20 11 9F 5C 78 25 01 0B 9F 5C 5C 20 06
            9F 5C 5C 5C 1D 4B DE 2F 05 19 04)
       (|qi|::|@p| |qi|::|-->| |qi|::|cons->@c| |qi|::|$$|
        |qi|::|build_action_env| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V21647| |qi|::|V21648| |qi|::|V21649|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|337 351 (DEFUN curry_type (V8) ...)-32|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|curry_type| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|curry_type|
       #152Y(00 00 00 00 01 00 00 00 26 02 9E 20 1D 9E 5C 20 19 9E 5C 78 25 00
             13 9E 5C 5C 20 0E 9E 5C 5C 5C 20 08 9E 5C 5C 5C 78 24 00 33 9E 20
             80 4D 9E 5C 20 80 48 9E 5C 78 25 01 80 41 9E 5C 5C 20 3C 9E 5C 5C
             5C 20 36 9E 5C 5C 5C 78 25 01 2E 94 01 C6 14 A0 5C 79 00 5D 5D 7A
             29 01 03 FF AD 94 01 C5 1B 6E 95 01 DD 94 01 6C FF A0 9F 5C 78 28
             FF 9A 5D 5D 19 03 DE AE 33 00 16 19 02 9E 20 14 94 01 25 02 0F 9E
             5C 20 0B 9E 5C 5C 20 06 9E 5C 5C 5C 1D 50 9E 21 5F 9E 19 02)
       (|COMMON-LISP|::|*| |qi|::|-->| |qi|::|cons| |qi|::|list|
        |qi|::|curry_type|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|V8|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|353 362 (DEFUN <name> (Stream) ...)-33|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<name>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<name>|
       #166Y(00 00 00 00 01 00 00 00 26 02 9E 5B 20 80 8B 9E 5B 79 9F 5C 78 61
             02 78 9F 5B 78 6F 00 AC 24 01 80 40 AC 25 05 80 58 CA F8 AC 24 01
             80 55 AC 24 05 80 58 CB 14 AD 33 01 1E C6 16 01 1B 34 CA 16 01 1B
             2F A1 5B 78 6F 04 6F 03 AC 24 01 6B AC 24 05 6C CB 1B 5F CB 1B 5C
             C6 16 01 1B 4B CA 16 01 1B 46 A0 5B 78 6F 02 6F 03 AC 24 01 56 AC
             25 05 64 CA F8 AC 24 01 61 AC 24 05 62 CB 1B FF B5 CB 1B FF B1 E1
             A1 5B 78 30 08 1B 06 E3 A1 5B 78 30 0A F8 61 02 1B 08 0E 0D 19 03
             63 E5 61 02 14 AC 88 0C 73 15 19 02)
       (|qi|::|symbol?| |qi|::|true| |qi|::|sysfunc?| |qi|::|not|
        |qi|::|variable?| |qi|::|false| "~S is not a boolean~%"
        |qi|::|*currfunc*| |qi|::|set| "~A is not a legimate functor."
        |qi|::|error| #\Escape |qi|::|failure?| |qi|::|*Failure*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|364 366 (DEFUN sysfunc? (V5452) ...)-34|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|sysfunc?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|sysfunc?|
       #27Y(00 00 00 00 01 00 00 00 26 02 AD 6B 00 70 01 24 02 03 CA 19 02 DD
            AE 30 04 19 02)
       (|qi|::|*sysfuncs*| |qi|::|element?| |qi|::|true|
        "~A is a system function and may not be redefined." |qi|::|error|
        |qi|::|false|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5452|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|368 383 (DEFUN <signature> (Stream) ...)-35|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<signature>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<signature>|
       #87Y(00 00 00 00 01 00 00 00 26 02 9E 5B 20 3D 9E 5B 78 25 00 37 9E 5B
            79 9F 5C 78 7B 02 6F 01 AC 89 02 17 63 C9 14 61 02 16 01 1B 24 9D
            5B 79 9E 5C 78 61 02 78 9E 5C 5B 1B 6B 9D 5B 20 06 9D 5B 78 24 03
            68 63 C9 1B 5D 0E 05 19 03 63 DE 61 02 14 AC 88 02 73 15 19 02)
       (|qi|::|{| |qi|::|<signature-help>| |qi|::|failure?| |qi|::|}| #\Escape
        |qi|::|*Failure*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|385 398 (DEFUN <signature-help> (Stream) ...)-36|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<signature-help>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<signature-help>|
       #121Y(00 00 00 00 01 00 00 00 26 02 9E 5B 20 80 5E 9E 5B 79 9F 5C 78 7B
             02 6C 71 AC 89 00 18 63 E0 61 02 16 01 1B 80 4B CB F8 1B 75 A1 5B
             78 A0 5C 78 30 03 F8 1B 6A 94 00 A0 5B 78 DB DC 63 70 03 70 03 70
             04 AC 24 05 5F AC 24 07 5F E2 AD 33 01 1E 94 00 00 1B 0D 0E 0A 19
             04 AE 6F 09 AC 89 00 70 63 CB 14 61 02 F8 AC 88 00 6B 15 19 03 63
             E0 61 02 14 AC 88 00 63 15 19 02)
       (|qi|::|failure?| |qi|::|{| |qi|::|}| |qi|::|cons| |qi|::|element?|
        |qi|::|true| #\Escape |qi|::|false| "~S is not a boolean~%" |qi|::|<e>|
        |qi|::|*Failure*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|400 413 (DEFUN <rules> (Stream) ...)-37|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<rules>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<rules>|
       #89Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 AC 88 01 3C AC 6C 76 AC 89
            01 09 63 C7 14 61 02 16 01 1B 30 94 00 9F 5C 78 9F 5C 5B 5D 1B 6E
            94 00 9E 5C 78 00 5D 1B 0D 0E 03 19 04 AE 6F 00 AC 89 01 6C 63 C7
            14 61 02 F8 AC 88 01 6B 15 19 03 63 DC 61 02 F8 AC 88 01 63 15 19
            02)
       (|qi|::|<rule>| |qi|::|failure?| #\Escape |qi|::|*Failure*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|415 479 (DEFUN <rule> (Stream) ...)-38|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<rule>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<rule>|
       #350Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 AC 88 01 80 75 AC 6F 02 AC
             88 01 80 52 AC 6F 03 AC 88 01 80 41 9D 5B 20 39 9D 5B 78 25 04 33
             9D 5B 79 9E 5C 78 7B 02 6F 05 AC 89 01 0A 63 CC 14 61 02 16 03 1B
             80 47 94 00 A1 5C 78 A1 5C 78 DE A1 5C 78 A3 5C 78 00 5D 5D 7A 00
             5D 5D 7A 2F 06 1B 5D 63 CC 1B 02 63 CC 14 61 02 16 02 1B 1F 63 E1
             61 02 16 01 1B 17 94 00 A0 5C 78 A0 5C 78 A0 5C 78 00 5D 5D 7A 2F
             06 1B 21 63 E1 61 02 F8 AC 89 01 80 CA AE 6F 00 AC 88 01 36 AC 6F
             02 AC 88 01 10 AC 6F 03 AC 89 01 4E 63 CC 14 61 02 16 02 1B 23 63
             E1 61 02 16 01 1B 1B 94 00 63 A1 5C 78 DE A1 5C 78 A3 5C 78 00 5D
             5D 7A 00 5D 5D 5D 1B 34 63 E1 61 02 F8 AC 89 01 80 80 AF 6F 02 AC
             88 01 80 45 AC 6F 03 AC 88 01 26 9D 5B 20 1E 9D 5B 78 25 04 18 9D
             5B 79 9E 5C 78 7B 02 6F 05 AC 89 01 FF B7 63 CC 14 61 02 16 02 1B
             20 63 CC 1B 02 63 CC 14 61 02 16 01 1B 13 94 00 63 A0 5C 78 A0 5C
             78 00 5D 5D 5D 1B 19 63 E1 61 02 F8 AC 89 01 27 B0 6F 02 AC 88 01
             14 AC 6F 03 AC 89 01 5A 63 CC 14 61 02 16 01 1B 08 0E 08 19 06 63
             E1 61 02 F8 AC 88 01 73 15 19 05 15 19 04 15 19 03 15 19 02)
       (|qi|::|<patterns>| |qi|::|failure?| |qi|::|<arrow>| |qi|::|<action>|
        |qi|::|where| |qi|::|<guard>| |qi|::|left_linearise| #\Escape
        |qi|::|*Failure*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|481 488 (DEFUN <arrow> (Stream) ...)-39|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<arrow>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<arrow>|
       #82Y(00 00 00 00 01 00 00 00 26 02 9E 5B 20 06 9E 5B 78 24 00 0C 63 C6
            14 7B 02 AC 88 02 1F 15 19 02 9E 5B 79 9F 5C 78 61 02 78 C5 1B 6A
            9F 5B 79 A0 5C 78 61 02 78 C8 1B 10 0E 04 19 04 9F 5B 20 06 9F 5B
            78 24 03 66 63 C6 14 7B 02 AC 88 02 69 15 19 03)
       (|qi|::|->| #\Escape |qi|::|failure?| |qi|::|<-| |qi|::|*Failure*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|490 500 (DEFUN <patterns> (Stream) ...)-40|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<patterns>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<patterns>|
       #85Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 AC 88 01 38 AC 6C 76 AC 89
            01 09 63 C7 14 61 02 16 01 1B 2C 94 00 9F 5C 78 9F 5C 5B 5D 1B 6E
            94 00 00 1B 0D 0E 04 19 04 AE 6F 03 AC 89 01 70 63 C7 14 61 02 F8
            AC 88 01 6B 15 19 03 63 DC 61 02 F8 AC 88 01 63 15 19 02)
       (|qi|::|<pattern>| |qi|::|failure?| #\Escape |qi|::|<e>|
        |qi|::|*Failure*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|502 597 (DEFUN <pattern> (Stream) ...)-41|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<pattern>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<pattern>|
       #561Y(00 00 00 00 01 00 00 00 26 02 9E 5B 20 80 7C 9E 5B 5B 20 80 76 9E
             5B 78 9F 5C 78 7B 02 9F 5B 79 A0 5C 78 7B 02 9E 5B 20 80 42 9E 5B
             78 25 00 3C 9E 5B 79 9F 5C 78 7B 02 6F 01 AC 88 02 26 AC 6F 03 AC
             89 02 17 63 C9 14 61 02 16 04 1B 80 40 94 02 DA A0 5C 78 A0 5C 78
             61 03 1B 6B 9D 5B 1D 6F 63 C9 1B 63 63 DE 61 02 16 03 1B 23 63 DE
             61 02 16 02 1B 1B 94 02 DF A0 5C 78 A0 5C 78 61 03 1B 80 50 9D 5B
             1D 6E 63 C9 1B 80 47 63 DE 61 02 14 AC 89 02 81 99 9F 5B 20 80 66
             9F 5B 5B 20 80 60 9F 5B 78 A0 5C 78 7B 02 A0 5B 79 A1 5C 78 7B 02
             9E 5B 20 2D 9E 5B 78 25 05 27 9E 5B 79 9F 5C 78 7B 02 6F 01 AC 88
             02 11 AC 6F 03 AC 89 02 FF B2 63 C9 14 61 02 16 04 1B 2B 63 DE 61
             02 16 03 1B 23 63 DE 61 02 16 02 1B 1B 94 02 DF A0 5C 78 A0 5C 78
             61 03 1B 80 50 9D 5B 1D 6E 63 C9 1B 80 47 63 DE 61 02 14 AC 89 02
             81 21 A0 5B 20 80 65 A0 5B 5B 20 80 5F A0 5B 78 A1 5C 78 7B 02 A1
             5B 79 A2 5C 78 7B 02 9E 5B 20 2D 9E 5B 78 25 06 27 9E 5B 79 9F 5C
             78 7B 02 6F 01 AC 88 02 11 AC 6F 03 AC 89 02 FF B2 63 C9 14 61 02
             16 04 1B 2A 63 DE 61 02 16 03 1B 22 63 DE 61 02 16 02 1B 1A 94 01
             E3 9F 5C 78 70 05 2F 0A 1B 80 49 9D 5B 1D 6F 63 C9 1B 80 40 63 DE
             61 02 14 AC 89 02 80 AA A1 5B 20 80 46 A1 5B 5B 20 80 40 A1 5B 78
             A2 5C 78 7B 02 A2 5B 79 A3 5C 78 7B 02 9E 5B 20 1E 9E 5B 78 25 07
             18 9E 5B 79 9F 5C 78 7B 02 6F 08 AC 89 02 FF B9 63 C9 14 61 02 16
             03 1B 12 63 DE 61 02 16 02 1B 0A E7 A5 5B 5B 1B 27 63 DE 61 02 14
             AC 89 02 80 52 A2 5B 20 80 41 A2 5B 79 A3 5C 78 61 02 78 A3 5B 78
             6F 0B AC 24 0C 59 AC 24 0E 06 E9 9E 14 33 01 1E C9 F8 61 02 1B 23
             94 00 9E 5C 5B 1B 0D 0E 11 19 08 B2 6F 10 AC 89 02 6E 63 C9 14 61
             02 F8 AC 88 02 6B 15 19 07 63 DE 61 02 14 AC 88 02 63 15 19 06 15
             19 05 15 19 04 15 19 03 15 19 02)
       (|qi|::|@p| |qi|::|<pattern1>| |qi|::|failure?| |qi|::|<pattern2>|
        #\Escape |qi|::|cons| |qi|::|@c| |qi|::|list| |qi|::|<patterns>|
        |qi|::|listit| |qi|::|cons_form| |qi|::|cons?| |qi|::|true|
        "~A is not a legitimate constructor~%" |qi|::|false|
        "~S is not a boolean~%" |qi|::|<simple_pattern>| |qi|::|*Failure*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|599 608 (DEFUN <simple_pattern> (Stream) ...)-42|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<simple_pattern>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<simple_pattern>|
       #110Y(00 00 00 00 01 00 00 00 26 02 9E 5B 20 06 9E 5B 78 24 00 0D 63 C8
             14 7B 02 AC 88 04 80 40 15 19 02 9E 5B 79 9F 5C 78 61 02 78 DB 2F
             02 1B 67 C8 1B 23 E4 AD 33 01 1E 9F 5B 79 A0 5C 78 61 02 78 A0 5B
             78 DF E0 00 5D 7A 70 07 AC 24 08 61 AC 25 09 60 A1 5B 5B F8 61 02
             1B 0C 0E 0B 19 04 9F 5B 21 55 63 DD 61 02 14 AC 88 04 6F 15 19 03)
       (|qi|::|_| "X" |qi|::|gensym| #\Escape |qi|::|failure?| |qi|::|->|
        |qi|::|<-| |qi|::|element?| |qi|::|true| |qi|::|false|
        "~S is not a boolean~%" |qi|::|*Failure*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|610 614 (DEFUN <pattern1> (Stream) ...)-43|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<pattern1>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<pattern1>|
       #41Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 AC 89 01 0D 63 C7 14 61 02
            F8 AC 88 01 0A 15 19 02 94 00 9E 5C 5B 1B 6E 0E 03 19 03)
       (|qi|::|<pattern>| |qi|::|failure?| #\Escape |qi|::|*Failure*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|616 620 (DEFUN <pattern2> (Stream) ...)-44|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<pattern2>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<pattern2>|
       #41Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 AC 89 01 0D 63 C7 14 61 02
            F8 AC 88 01 0A 15 19 02 94 00 9E 5C 5B 1B 6E 0E 03 19 03)
       (|qi|::|<pattern>| |qi|::|failure?| #\Escape |qi|::|*Failure*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|622 626 (DEFUN <action> (Stream) ...)-45|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<action>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<action>|
       #44Y(00 00 00 00 01 00 00 00 26 02 9E 5B 21 0C 63 C5 14 7B 02 AC 88 01
            11 15 19 02 9E 5B 79 9F 5C 78 61 02 78 9F 5B 5B 1B 68 0E 02 19 03)
       (#\Escape |qi|::|failure?| |qi|::|*Failure*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|628 632 (DEFUN <guard> (Stream) ...)-46|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<guard>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<guard>|
       #44Y(00 00 00 00 01 00 00 00 26 02 9E 5B 21 0C 63 C5 14 7B 02 AC 88 01
            11 15 19 02 9E 5B 79 9F 5C 78 61 02 78 9F 5B 5B 1B 68 0E 02 19 03)
       (#\Escape |qi|::|failure?| |qi|::|*Failure*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|634 634 (DEFUN escape? (V5464) ...)-47|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|escape?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|escape?|
       #20Y(00 00 00 00 01 00 00 00 26 02 AD 24 00 03 C7 19 02 C6 19 02)
       (#\Escape |qi|::|true| |qi|::|false|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|V5464|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|636 636 (DEFUN left_linearise (V5465) ...)-48|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|left_linearise| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|left_linearise|
       #16Y(00 00 00 00 01 00 00 00 26 02 DA AE 30 01 19 02)
       (|qi|::|left_linearise*| |qi|::|fix|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5465|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|638 639 (DEFUN fix (V5467 V5468) ...)-49|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|fix| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|fix|
       #21Y(00 00 00 00 02 00 00 00 26 03 AE AE B0 B0 70 00 2D 03 01 19 03)
       (|qi|::|apply| |qi|::|fix*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5467| |qi|::|V5468|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|641 643 (DEFUN fix* (V5476 V5477 V5478) ...)-50|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|fix*| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|fix*|
       #30Y(00 00 00 00 03 00 00 00 26 04 AE AE 70 00 88 01 0A AF AE B1 B0 70
            02 29 03 07 6F 9E 19 04)
       (|qi|::|qi_=| |qi|::|wrapper| |qi|::|apply|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5476| |qi|::|V5477| |qi|::|V5478|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|645 679 (DEFUN left_linearise* (V5479) ...)-51|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|left_linearise*| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|left_linearise*|
       #195Y(00 00 00 00 01 00 00 00 26 02 9E 20 35 9E 5C 20 31 9E 5C 5C 20 2C
             9E 5C 5C 5B 20 26 9E 5C 5C 5B 78 25 00 1E 9E 5C 5C 5B 5C 20 17 9E
             5C 5C 5B 5C 5C 20 0F 9E 5C 5C 5B 5C 5C 5C 1C 06 9E 5C 5C 5C 1D 1B
             9E 20 10 9E 5C 20 0C 9E 5C 5C 20 07 9E 5C 5C 5C 1D 80 43 E4 2F 0B
             19 02 A4 19 08 94 01 95 02 95 00 94 00 95 00 B0 6F 01 AC DC 70 03
             24 04 69 DF 6F 06 AD AD B4 6E 03 07 94 06 DA E2 DD B1 B3 00 5D 5D
             7A 94 07 00 5D 5D 7A A3 5C 5D 7A 00 5D 5D 5D 19 09 A1 19 05 94 01
             95 02 AD 6F 01 AC DC 70 03 24 04 6F E3 6F 06 AD AD B1 6E 03 07 94
             03 DA DD B0 B2 00 5D 5D 7A A3 5C 5D 7A 00 5D 5D 5D 19 06)
       (|qi|::|where| |qi|::|rpted_v| |qi|::|false| |qi|::|qi_=| |qi|::|true|
        "X" |qi|::|gensym| |qi|::|left_linearise_v| |qi|::|and| "X"
        |qi|::|left_linearise*| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5479|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|681 681 (DEFUN rpted_v (V5487) ...)-52|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|rpted_v| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|rpted_v| #17Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 2F 01 19 02)
       (|qi|::|flatten| |qi|::|rpted_v*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5487|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|683 689 (DEFUN rpted_v* (V5493) ...)-53|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|rpted_v*| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|rpted_v*|
       #90Y(00 00 00 00 01 00 00 00 26 02 92 01 21 C5 19 02 C7 16 01 1B 39 C5
            16 01 1B 34 94 02 95 03 70 03 AC 24 02 6C AC 24 00 6D C9 1B 13 93
            01 5F 9E 20 21 94 01 6F 01 AC 24 02 61 AC 24 00 10 C9 14 AD 33 01
            1E 9E 5B 19 02 95 01 29 01 03 5E C5 F8 88 05 71 9E 21 72 E0 2F 07
            19 02)
       (|qi|::|false| |qi|::|variable?| |qi|::|true| |qi|::|element?|
        "~S is not a boolean~%" |qi|::|wrapper| |qi|::|rpted_v*|
        |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5493|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|691 698 (DEFUN left_linearise_v (V5503 V5504 V5505) ...)-54|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|left_linearise_v| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|left_linearise_v|
       #55Y(00 00 00 00 03 00 00 00 26 04 AF AE 70 00 88 01 18 9E 20 20 94 01
            95 02 B1 B1 AF 6C 6D AC AF 70 00 24 02 08 AC 9F 5D 19 07 9F 19 04
            AC B3 B3 B0 28 58 1B 72 9E 19 04)
       (|qi|::|qi_=| |qi|::|wrapper| |qi|::|true|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5503| |qi|::|V5504| |qi|::|V5505|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|700 700 (SETQ *userdefs* NIL)-55|
   #15Y(00 00 00 00 00 00 00 00 20 01 00 0F 00 19 01) (|qi|::|*userdefs*|)
   (|COMMON-LISP|::|NIL| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|702 704 (DEFUN compile_to_machine_code (V5508 V5509) ...)-56|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|compile_to_machine_code| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|compile_to_machine_code|
       #29Y(00 00 00 00 02 00 00 00 26 03 AE 6B 00 38 03 31 C5 0F 00 AE AE 70
            01 6F 02 2F 03 19 03)
       (|qi|::|*userdefs*| |qi|::|compile_to_lambda+| |qi|::|compile_to_lambda|
        |qi|::|compile_to_lisp|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5508| |qi|::|V5509|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|706 711 (DEFUN check_variable_occurrences (V5510) ...)-57|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|check_variable_occurrences| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|check_variable_occurrences|
       #37Y(00 00 00 00 01 00 00 00 26 02 92 01 10 00 19 02 94 01 2F 00 95 01
            29 01 03 00 93 01 70 9E 21 70 DB 2F 02 19 02)
       (|qi|::|check_variable_occurrence| |qi|::|check_variable_occurrences|
        |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5510|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|713 724 (DEFUN check_variable_occurrence (V5515) ...)-58|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|check_variable_occurrence| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|check_variable_occurrence|
       #115Y(00 00 00 00 01 00 00 00 26 02 9E 20 0F 9E 5C 20 0B 9E 5C 5C 20 06
             9E 5C 5C 5C 1D 08 E6 2F 0D 19 02 C9 19 03 9E 5C 5C 78 6F 00 94 02
             6F 00 70 01 AC 6F 02 24 03 6B 38 02 72 8F 6B 05 00 10 06 E1 B1 38
             02 31 95 AF B1 31 90 E2 B1 31 94 B1 1B 0F E3 B2 31 94 94 00 83 01
             B2 31 90 E4 B2 31 94 AC 8D 9F 6D 16 01 B0 31 97 11 16 01 AC 81 90
             00 2F 0B 19 03)
       (|qi|::|extract_free_vars| |qi|::|difference| |qi|::|empty?|
        |qi|::|true| |qi|::|ok| |qi|::|*currfunc*| |SYSTEM|::|*FORMAT-CS*|
        "the following variables are free in " #\: #\Space #\; |qi|::|warn|
        |qi|::|check_variable_occurrence| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5515|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|726 726 (DEFUN extract_free_vars (V5517) ...)-59|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|extract_free_vars| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|extract_free_vars|
       #18Y(00 00 00 00 01 00 00 00 26 02 63 AE 63 2D 03 00 19 02)
       (|qi|::|extract_free_vars*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5517|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|728 748 (DEFUN extract_free_vars* (V42 V43 V44) ...)-60|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|extract_free_vars*| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|extract_free_vars*|
       #150Y(00 00 00 00 03 00 00 00 26 04 AE 6F 00 89 01 08 AE B0 70 02 89 01
             80 4C 9F 20 1B 94 02 25 04 16 9F 5C 20 12 9F 5C 5C 20 0D 9F 5C 5C
             5C 20 07 9F 5C 5C 5C 5C 1D 34 9F 20 14 94 02 25 05 0F 9F 5C 20 0B
             9F 5C 5C 20 06 9F 5C 5C 5C 1D 37 9F 20 80 42 AF 94 03 AF 6C FF B2
             B0 95 04 B0 28 FF AB 14 30 03 19 04 AE 00 7A 9F 1B 75 95 02 95 00
             B1 94 01 B1 6C FF 95 94 02 A4 7A 9F 5C 78 B2 6C FF 8A 30 03 19 06
             95 02 94 00 A2 7A 9E 5C 78 B0 29 03 08 FF 77 9E 19 04)
       (|qi|::|variable?| |qi|::|wrapper| |qi|::|element?| |qi|::|union|
        |qi|::|let| |qi|::|/.|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V42| |qi|::|V43| |qi|::|V44|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|750 750 (DEFUN union (x y) ...)-61|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|union| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|union|
       #19Y(00 00 00 00 02 00 00 00 26 03 AE AE DA DB 2D 04 02 19 03)
       (:|TEST| |qi|::|ABSEQUAL| |COMMON-LISP|::|UNION|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|x| |qi|::|y|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|752 758 (DEFUN ABSEQUAL (X Y) ...)-62|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|ABSEQUAL| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|ABSEQUAL|
       #79Y(00 00 00 00 02 00 00 00 26 03 9F 20 03 9E 21 10 DA AF 8F 47 05 DA
            AE 8E 47 16 AE AE 32 14 19 03 94 02 94 02 28 64 1F 25 95 02 95 02
            29 02 05 5A DA AF DB 72 43 DA AF DB 72 43 28 4E 1F 0F DA AF DC 72
            43 DA AF DC 72 43 29 02 05 FF BD 19 03)
       (|qi|::|TUPLE| 1. 2.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|X| |qi|::|Y|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|760 766 (DEFSTRUCT (TUPLE # # ...) fst ...)-63|
   #387Y(00 00 00 00 00 00 00 00 20 01 00 2B 01 DA DB DC 38 01 72 9E 2F 03 5D
         0B 00 00 DA 2F 04 DA DF 32 A3 DA 68 01 00 63 E0 E1 E2 6B 09 E4 E5 E6
         E7 E8 64 E9 EA EB 01 02 6F 12 70 13 EE EF F0 F1 F2 63 6E 11 19 6B 09
         E4 F4 E6 F5 E8 64 E9 EA EB 01 02 6F 12 70 13 EE F6 F0 F7 F2 63 6E 11
         19 7B 02 6B 1E E4 E5 E6 E7 E8 64 E9 EA EB 01 02 6F 12 70 13 EE 65 1F
         65 20 65 21 65 22 65 23 6E 11 24 6B 1E E4 F4 E6 F5 E8 64 E9 EA EB 01
         02 6F 12 70 13 EE 65 25 65 20 65 26 65 22 65 27 6E 11 24 7B 02 63 2D
         09 28 65 29 2F 2A 65 29 AD 6D 2B 01 32 9C 16 01 65 2C 31 62 E2 2F 2A
         E2 65 2D 65 2E 32 A2 E2 65 2F 32 9C 65 30 31 62 E1 2F 2A E1 65 2D 65
         31 32 A2 E1 65 32 32 9C 65 33 31 62 65 34 31 62 E5 2F 2A E5 65 2D 65
         35 32 A2 E5 65 36 32 9C E5 65 37 DA 32 A2 65 38 31 62 65 39 31 62 F4
         2F 2A F4 65 2D 65 3A 32 A2 F4 65 3B 32 9C F4 65 37 DA 32 A2 65 3C 31
         62 65 3D 31 62 65 3E 2F 2A 65 3E 65 2D 65 3F 32 A2 65 3E 65 40 32 9C
         E5 65 41 DA 32 A2 65 42 31 62 65 43 31 62 65 44 2F 2A 65 44 65 2D 65
         45 32 A2 65 44 65 46 32 9C F4 65 41 DA 32 A2 65 47 65 48 38 01 8F 9E
         04 65 47 2F 49 65 47 65 4A 65 4B 63 65 4C 65 4D 65 4E 65 4F 65 50 DA
         38 02 72 3A 64 38 02 72 3A 7B 02 7B 08 2D 03 51 C5 19 01)
   (|qi|::|TUPLE| |COMMON-LISP|::|STRUCTURE-OBJECT| |CLOS|::|CLOSCLASS|
    |CLOS|::|CLASS-NAMES| |SYSTEM|::|STRUCTURE-UNDEFINE-ACCESSORIES|
    |SYSTEM|::|DEFSTRUCT-DESCRIPTION| (|qi|::|@p|) |qi|::|COPY-TUPLE|
    |qi|::|TUPLE-P| |CLOS|::|<STRUCTURE-EFFECTIVE-SLOT-DEFINITION>| :|NAME|
    |qi|::|fst| :|INITARGS| (:|fst|) :|TYPE| :|ALLOCATION| :|INSTANCE|
    |CLOS|::|INHERITABLE-INITER| |SYSTEM|::|MAKE-CONSTANT-INITFUNCTION|
    |CLOS|::|MAKE-INHERITABLE-SLOT-DEFINITION-INITER| |CLOS|::|INHERITABLE-DOC|
    (|COMMON-LISP|::|NIL|) |CLOS|::|LOCATION| 1. |CLOS|::|READONLY|
    |CLOS|::|MAKE-INSTANCE-<STRUCTURE-EFFECTIVE-SLOT-DEFINITION>| |qi|::|snd|
    (:|snd|) (|COMMON-LISP|::|NIL|) 2.
    |CLOS|::|<STRUCTURE-DIRECT-SLOT-DEFINITION>| (|COMMON-LISP|::|NIL|)
    :|READERS| (|qi|::|fst|) :|WRITERS| ((|COMMON-LISP|::|SETF| |qi|::|fst|))
    |CLOS|::|MAKE-INSTANCE-<STRUCTURE-DIRECT-SLOT-DEFINITION>|
    (|COMMON-LISP|::|NIL|) (|qi|::|snd|) ((|COMMON-LISP|::|SETF| |qi|::|snd|))
    |CLOS|::|DEFINE-STRUCTURE-CLASS| |qi|::|@p|
    |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|@p|
       #31Y(00 00 00 00 02 00 00 00 26 03 69 00 01 DB 72 45 DC AD DD B2 32 44
            DC AD DE B1 32 44 15 19 03)
       (|COMMON-LISP|::|NIL| 3. |qi|::|TUPLE| 1. 2.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|fst| |qi|::|snd| |COMMON-LISP|::|&AUX|) |COMMON-LISP|::|NIL| 1)
    (|COMMON-LISP|::|INLINE| |qi|::|TUPLE-P|) |SYSTEM|::|INLINE-EXPANSION|
    ((|SYSTEM|::|OBJECT|)
     (|COMMON-LISP|::|DECLARE| (|SYSTEM|::|IN-DEFUN| |qi|::|TUPLE-P|))
     (|COMMON-LISP|::|BLOCK| |qi|::|TUPLE-P|
      (|SYSTEM|::|%STRUCTURE-TYPE-P| '|qi|::|TUPLE| |SYSTEM|::|OBJECT|)))
    #Y(|qi|::|TUPLE-P| #16Y(00 00 00 00 01 00 00 00 20 02 DA AE 32 47 19 02)
       (|qi|::|TUPLE|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
    (|COMMON-LISP|::|INLINE| |qi|::|COPY-TUPLE|)
    ((|COMMON-LISP|::|STRUCTURE|)
     (|COMMON-LISP|::|DECLARE| (|SYSTEM|::|IN-DEFUN| |qi|::|COPY-TUPLE|))
     (|COMMON-LISP|::|BLOCK| |qi|::|COPY-TUPLE|
      (|COMMON-LISP|::|COPY-STRUCTURE| |COMMON-LISP|::|STRUCTURE|)))
    #Y(|qi|::|COPY-TUPLE| #15Y(00 00 00 00 01 00 00 00 26 02 AD 32 46 19 02) ()
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|COMMON-LISP|::|STRUCTURE|) |COMMON-LISP|::|NIL| 1)
    (|COMMON-LISP|::|FUNCTION| |qi|::|fst| (|qi|::|TUPLE|) |COMMON-LISP|::|T|)
    (|COMMON-LISP|::|INLINE| |qi|::|fst|)
    ((|SYSTEM|::|OBJECT|)
     (|COMMON-LISP|::|DECLARE| (|SYSTEM|::|IN-DEFUN| |qi|::|fst|))
     (|COMMON-LISP|::|BLOCK| |qi|::|fst|
      (|COMMON-LISP|::|THE| |COMMON-LISP|::|T|
       (|SYSTEM|::|%STRUCTURE-REF| '|qi|::|TUPLE| |SYSTEM|::|OBJECT| 1.))))
    #Y(|qi|::|fst| #17Y(00 00 00 00 01 00 00 00 20 02 DA AE DB 32 43 19 02)
       (|qi|::|TUPLE| 1.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
    |SYSTEM|::|DEFSTRUCT-READER|
    (|COMMON-LISP|::|FUNCTION| |qi|::|snd| (|qi|::|TUPLE|) |COMMON-LISP|::|T|)
    (|COMMON-LISP|::|INLINE| |qi|::|snd|)
    ((|SYSTEM|::|OBJECT|)
     (|COMMON-LISP|::|DECLARE| (|SYSTEM|::|IN-DEFUN| |qi|::|snd|))
     (|COMMON-LISP|::|BLOCK| |qi|::|snd|
      (|COMMON-LISP|::|THE| |COMMON-LISP|::|T|
       (|SYSTEM|::|%STRUCTURE-REF| '|qi|::|TUPLE| |SYSTEM|::|OBJECT| 2.))))
    #Y(|qi|::|snd| #17Y(00 00 00 00 01 00 00 00 20 02 DA AE DB 32 43 19 02)
       (|qi|::|TUPLE| 2.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
    (|COMMON-LISP|::|FUNCTION| (|COMMON-LISP|::|SETF| |qi|::|fst|)
     (|COMMON-LISP|::|T| |qi|::|TUPLE|) |COMMON-LISP|::|T|)
    (|COMMON-LISP|::|INLINE| (|COMMON-LISP|::|SETF| |qi|::|fst|))
    #.(|SYSTEM|::|GET-SETF-SYMBOL| '|qi|::|fst|)
    ((|SYSTEM|::|VALUE| |SYSTEM|::|OBJECT|)
     (|COMMON-LISP|::|DECLARE|
      (|SYSTEM|::|IN-DEFUN| #1=(|COMMON-LISP|::|SETF| |qi|::|fst|)))
     (|COMMON-LISP|::|BLOCK| |qi|::|fst|
      (|SYSTEM|::|%STRUCTURE-STORE| '|qi|::|TUPLE| |SYSTEM|::|OBJECT| 1.
       |SYSTEM|::|VALUE|)))
    #Y(#1# #18Y(00 00 00 00 02 00 00 00 20 03 DA AE DB B1 32 44 19 03)
       (|qi|::|TUPLE| 1.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
    |SYSTEM|::|DEFSTRUCT-WRITER|
    (|COMMON-LISP|::|FUNCTION| (|COMMON-LISP|::|SETF| |qi|::|snd|)
     (|COMMON-LISP|::|T| |qi|::|TUPLE|) |COMMON-LISP|::|T|)
    (|COMMON-LISP|::|INLINE| (|COMMON-LISP|::|SETF| |qi|::|snd|))
    #.(|SYSTEM|::|GET-SETF-SYMBOL| '|qi|::|snd|)
    ((|SYSTEM|::|VALUE| |SYSTEM|::|OBJECT|)
     (|COMMON-LISP|::|DECLARE|
      (|SYSTEM|::|IN-DEFUN| #2=(|COMMON-LISP|::|SETF| |qi|::|snd|)))
     (|COMMON-LISP|::|BLOCK| |qi|::|snd|
      (|SYSTEM|::|%STRUCTURE-STORE| '|qi|::|TUPLE| |SYSTEM|::|OBJECT| 2.
       |SYSTEM|::|VALUE|)))
    #Y(#2# #18Y(00 00 00 00 02 00 00 00 20 03 DA AE DB B1 32 44 19 03)
       (|qi|::|TUPLE| 2.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
    |CLOS|::|PRINT-OBJECT| |SYSTEM|::|TRACED-DEFINITION| |SYSTEM|::|UNTRACE1|
    #Y(#:|760 766 (DEFSTRUCT (TUPLE # # ...) fst ...)-63-1|
       #15Y(00 00 00 00 01 00 00 00 20 02 DA C6 5D 19 02)
       (#Y(#:|760 766 (DEFSTRUCT (TUPLE # # ...) fst ...)-63-1-1|
           #16Y(00 00 00 00 02 00 00 00 20 03 AE AE 30 00 19 03)
           (|qi|::|print_tuple|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        (|COMMON-LISP|::|T|))
       (|COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
    :|QUALIFIERS| :|LAMBDA-LIST| (|SYSTEM|::|STRUCT| |COMMON-LISP|::|STREAM|)
    |CLOS|::|SIGNATURE|
    #(2. 0. |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|
      |COMMON-LISP|::|NIL|)
    :|SPECIALIZERS| |CLOS|::|DO-DEFMETHOD|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|768 769 (DEFUN print_tuple (Tuple Stream) ...)-64|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|print_tuple| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|print_tuple|
       #27Y(00 00 00 00 02 00 00 00 26 03 AD DA DB B1 DC 72 43 DB B2 DD 72 43
            2D 04 04 19 03)
       (#Y(|qi|::|print_tuple-1|
           #57Y(00 00 00 00 03 00 00 00 21 19 00 10 00 DB B4 38 02 31 95 B3 2F
                02 10 03 B5 B7 31 8D 11 B3 2F 04 DF B4 31 94 B3 2F 02 10 03 B4
                B7 31 8D 11 B3 2F 04 E0 B4 31 94 A1 11 19 05)
           (|SYSTEM|::|*FORMAT-CS*| "(@p "
            |SYSTEM|::|STREAM-START-S-EXPRESSION|
            |COMMON-LISP|::|*PRINT-RIGHT-MARGIN*|
            |SYSTEM|::|STREAM-END-S-EXPRESSION| #\Space #\))
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        |qi|::|TUPLE| 1. 2. |COMMON-LISP|::|FORMAT|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Tuple| |qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|771 771 (DEFUN tuple? (X) ...)-65|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|tuple?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|tuple?|
       #21Y(00 00 00 00 01 00 00 00 26 02 DA AE 8E 47 03 C7 19 02 C6 19 02)
       (|qi|::|TUPLE| |qi|::|true| |qi|::|false|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|X|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|773 779 (DEFUN compile_to_lambda+ (V5535 V5536) ...)-66|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|compile_to_lambda+| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|compile_to_lambda+|
       #50Y(00 00 00 00 02 00 00 00 26 03 DA AE 73 00 16 AF AD 70 01 6F 02 72
            63 DD AD AF 30 04 7A B1 DF E0 E1 B5 B2 B2 70 08 00 5D 5D 7A 00 5D
            7A 2D 03 09 19 06)
       (|qi|::|check_choicepoint| |qi|::|arity| |qi|::|mkVs| |qi|::|cases|
        |qi|::|compile_to_lambda+_rules| |qi|::|lambda+| |qi|::|y-combinator|
        |qi|::|/.| |qi|::|bld_abs| |qi|::|put-prop|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5535| |qi|::|V5536|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|781 781 (DEFUN get-lambda (Name) ...)-67|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|get-lambda| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|get-lambda|
       #18Y(00 00 00 00 01 00 00 00 26 02 AD DA 63 2D 03 01 19 02)
       (|qi|::|lambda+| |qi|::|get-prop|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Name|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|783 824 (DEFUN check_choicepoint (V5537) ...)-68|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|check_choicepoint| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|check_choicepoint|
       #209Y(00 00 00 00 01 00 00 00 26 02 9E 20 19 9E 5C 20 15 9E 5C 5C 20 10
             9E 5C 5C 5C 1C 0A 9E 5C 78 DA 70 01 88 02 80 4F 9E 20 35 9E 5C 20
             31 9E 5C 5C 20 2C 9E 5C 5C 5B 20 26 9E 5C 5C 5B 78 25 03 1E 9E 5C
             5C 5B 5C 20 17 9E 5C 5C 5B 5C 5C 20 0F 9E 5C 5C 5B 5C 5C 5C 1C 06
             9E 5C 5C 5C 1D 1F 9E 20 0F 9E 5C 20 0B 9E 5C 5C 20 06 9E 5C 5C 5C
             1D 3E E6 2F 0D 19 02 94 01 9F 5C 5C 5D 19 02 95 01 95 00 94 00 95
             00 DE 6F 05 94 06 DD E0 94 04 E1 E2 E3 B3 A6 5C 5D 7A 00 5D 7A 00
             5D 7A 00 5D 5D 7A E4 B0 00 5D 7A 00 5D 5D 7A 00 5D 5D 19 07 E5 6F
             05 94 02 DD E1 E2 E3 B1 A5 5C 5C 5D 7A 00 5D 7A 00 5D 7A E4 B0 00
             5D 7A 00 5D 5D 7A 00 5D 5D 19 03)
       (|qi|::|->| |qi|::|qi_=| |qi|::|wrapper| |qi|::|where| "choicepoint"
        |qi|::|gensym| |qi|::|and| |qi|::|not| |qi|::|escape?| |qi|::|set|
        |qi|::|value| "choicepoint" |qi|::|check_choicepoint|
        |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5537|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|826 830 (DEFUN bld_abs (V5542 V5543) ...)-69|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|bld_abs| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|bld_abs|
       #41Y(00 00 00 00 02 00 00 00 26 03 92 02 14 9E 19 03 95 02 DA 94 04 B0
            00 5D 5D 7A 29 02 05 00 93 02 6C 9F 21 6C DB 2F 02 19 03)
       (|qi|::|/.| |qi|::|bld_abs| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5542| |qi|::|V5543|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|832 834 (DEFUN mkVs (V5544) ...)-70|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|mkVs| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|mkVs|
       #27Y(00 00 00 00 01 00 00 00 26 02 AD 24 00 0A DB 6F 02 97 02 28 75 5D
            19 02 00 19 02)
       (0. "V" |qi|::|gensym|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5544|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|836 844 (DEFUN arity (V5547 V5548) ...)-71|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|arity| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|arity|
       #64Y(00 00 00 00 02 00 00 00 26 03 9E 20 04 9E 5C 1D 0C 9E 20 04 9E 5C
            21 11 DF 2F 06 19 03 94 01 2F 00 19 03 B1 AF 29 02 08 61 95 01 94
            02 6F 00 94 01 6F 00 AD AD 70 01 24 02 69 DD B2 30 04 19 06)
       (|qi|::|arity_rule| |qi|::|qi_=| |qi|::|true| "arity error in ~A~%"
        |qi|::|error| |qi|::|arity| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5547| |qi|::|V5548|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|846 850 (DEFUN arity_rule (V5550) ...)-72|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|arity_rule| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|arity_rule|
       #33Y(00 00 00 00 01 00 00 00 26 02 9E 20 09 9E 5C 20 05 9E 5C 5C 1D 05
            DB 2F 02 19 02 94 01 2F 00 19 02)
       (|qi|::|length| |qi|::|arity_rule| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5550|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|852 861 (DEFUN compile_to_lambda+_rules (V5554 V5555) ...)-73|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|compile_to_lambda+_rules| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|compile_to_lambda+_rules|
       #65Y(00 00 00 00 02 00 00 00 26 03 92 01 1D 00 19 03 94 01 AF 72 63 94
            01 72 63 9F 5C 78 6E 03 00 B0 95 04 28 03 5D 19 04 93 01 63 9E 20
            0F 9E 5B 20 0B 9E 5B 5C 20 06 9E 5B 5C 5C 1D 54 DB 2F 02 19 03)
       (|qi|::|compile_to_lambda+_rule| |qi|::|compile_to_lambda+_rules|
        |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5554| |qi|::|V5555|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|863 868 (DEFUN compile_to_lambda+_rule (V5557 V5558 V5559) ...)-74|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|compile_to_lambda+_rule| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|compile_to_lambda+_rule|
       #45Y(00 00 00 00 03 00 00 00 26 04 92 02 18 AF AE 30 00 19 04 AF 95 03
            DB 94 05 B1 00 5D 5D 7A 29 03 07 00 93 02 68 9F 21 6B DC 2F 03 19
            04)
       (|qi|::|bld_app| |qi|::|/.| |qi|::|compile_to_lambda+_rule|
        |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5557| |qi|::|V5558| |qi|::|V5559|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|870 873 (DEFUN bld_app (V5560 V5561) ...)-75|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|bld_app| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|bld_app|
       #39Y(00 00 00 00 02 00 00 00 26 03 92 02 12 9E 19 03 95 02 AE 94 04 00
            5D 7A 29 02 05 00 93 02 6E 9F 21 6E DA 2F 01 19 03)
       (|qi|::|bld_app| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5560| |qi|::|V5561|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|875 880 (DEFUN compile_to_lambda (V5562) ...)-76|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|compile_to_lambda| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|compile_to_lambda|
       #43Y(00 00 00 00 01 00 00 00 26 02 9E 20 0E 94 01 25 00 09 9E 5C 20 05
            9E 5C 5C 1D 05 DC 2F 03 19 02 DA 9F 5C 78 6F 01 00 5D 5D 19 02)
       (|qi|::|y-combinator| |qi|::|compile_combinator_body|
        |qi|::|compile_to_lambda| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5562|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|882 892 (DEFUN compile_combinator_body (V5563) ...)-77|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|compile_combinator_body| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|compile_combinator_body|
       #70Y(00 00 00 00 01 00 00 00 26 02 9E 20 14 94 01 25 00 0F 9E 5C 20 0B
            9E 5C 5C 20 06 9E 5C 5C 5C 1D 0D 9E 20 05 94 01 24 01 15 DD 2F 04
            19 02 95 01 DA 94 01 9F 5C 78 6C 52 00 5D 5D 5D 19 03 DB 95 02 2F
            02 5D 19 02)
       (|qi|::|/.| |qi|::|cases| |qi|::|beta_reduce|
        |qi|::|compile_combinator_body| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5563|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|894 898 (DEFUN beta_reduce (V5565) ...)-78|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|beta_reduce| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|beta_reduce|
       #39Y(00 00 00 00 01 00 00 00 26 02 92 01 12 00 19 02 63 94 02 70 00 95
            02 28 03 5D 19 02 93 01 6E 9E 21 6E DB 2F 02 19 02)
       (|qi|::|beta_reduce*| |qi|::|beta_reduce| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5565|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|900 972 (DEFUN beta_reduce* (V5566 V5567) ...)-79|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|beta_reduce*| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|beta_reduce*|
       #606Y(00 00 00 00 02 00 00 00 26 03 9E 20 15 94 01 25 00 10 9E 5C 20 0C
             9E 5C 5C 20 07 9E 5C 5C 5C 1D 80 EC 9E 20 80 4E 9E 5B 20 80 49 9E
             5B 78 25 01 80 42 9E 5B 5C 20 3D 9E 5B 5C 5B 20 37 9E 5B 5C 5B 78
             25 02 2F 9E 5B 5C 5B 5C 20 28 9E 5B 5C 5B 5C 5C 20 20 9E 5B 5C 5B
             5C 5C 5C 1C 17 9E 5B 5C 5C 20 11 9E 5B 5C 5C 5C 1C 0A 9E 5C 20 06
             9E 5C 5C 1D 80 AC 9E 20 81 02 9E 5B 20 80 FD 9E 5B 78 25 01 80 F6
             9E 5B 5C 20 80 F0 9E 5B 5C 5B 20 80 E9 9E 5B 5C 5B 78 25 07 80 E0
             9E 5B 5C 5B 5C 20 80 D8 9E 5B 5C 5B 5C 5C 20 80 CF 9E 5B 5C 5B 5C
             5C 5C 1C 80 C5 9E 5B 5C 5C 20 80 BE 9E 5B 5C 5C 5C 1C 80 B6 9E 5C
             20 80 B1 9E 5C 5C 1C 80 AB 95 01 94 02 95 00 94 00 95 00 94 04 AE
             A1 5C 78 6E 03 03 B4 E2 A4 7A 00 7A 73 02 23 AC DB 94 04 DB A3 5C
             78 B2 00 5D 5D 7A 00 5D 5D 7A E3 A6 7A 00 5D 7A CF 14 A6 7A 00 5D
             7A 29 02 0C FE FC 95 01 AF 94 01 00 7A 73 02 23 9E 5C 78 29 02 06
             FE EA 95 01 94 02 95 00 94 00 95 00 94 04 AE A1 5C 78 6E 03 03 B4
             DE A4 7A 00 7A 73 02 23 AC DB 94 04 DB A3 5C 78 B2 00 5D 5D 7A 00
             5D 5D 7A DF A6 7A 00 5D 7A CB 1B FF AC 94 01 95 00 B0 A1 5C 78 94
             02 A0 5C 78 6E 03 03 29 02 07 FE 9E D3 1B 80 D5 D3 16 01 1B 80 CF
             D6 1B 80 73 9E 20 2F 9E 5B 20 2B 9E 5B 78 25 01 25 9E 5B 5C 20 20
             9E 5B 5C 5C 20 1A 9E 5B 5C 5C 5C 1C 13 9E 5C 20 0F 9E 5C 5C 1C 0A
             9E 5B 5C 78 6F 0B 88 0C FF AB 9E 20 80 9A 9E 5B 20 80 95 9E 5B 78
             25 01 80 8E 9E 5B 5C 20 80 88 9E 5B 5C 5C 20 80 81 9E 5B 5C 5C 5C
             1C 80 79 9E 5C 20 80 74 9E 5C 5C 1C 80 6E 9E 5B 5C 78 6F 0D AC 24
             0E FF 85 AC 24 0F 80 46 D6 14 AD 33 01 1E 94 01 95 00 B0 EC 94 02
             A3 5C 5D 7A 00 7A 73 02 23 9E 5C 78 29 02 07 FD FF B2 B2 00 5D 5D
             19 07 94 01 AF AD 6C FD F1 AC 6F 13 6F 14 AD 6F 14 AD B0 70 12 24
             0E 63 AC AE A4 5C 7A 29 02 09 FD D8 9F 5B 5C 78 6F 10 AC 24 0E FF
             33 AC 25 0F FF 34 D4 16 01 F8 88 0C FF A8 9E 20 0A 9E 5C 20 06 9E
             5C 5C 1D FF BB AE AE 00 5D 5D 19 03)
       (|qi|::|where| |qi|::|/.| |qi|::|cons| |qi|::|substf| |qi|::|cons?|
        |COMMON-LISP|::|CAR| |COMMON-LISP|::|CDR| |qi|::|@p| |qi|::|tuple?|
        |qi|::|fst| |qi|::|snd| |qi|::|variable?| |qi|::|wrapper| |qi|::|atom?|
        |qi|::|true| |qi|::|false| |qi|::|empty?| "~S is not a boolean~%"
        |qi|::|qi_=| |qi|::|tail| |qi|::|head|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5566| |qi|::|V5567|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|974 987 (DEFUN substf (V63 V64 V65) ...)-80|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|substf| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|substf|
       #145Y(00 00 00 00 03 00 00 00 26 04 AE AE 8A 00 80 4B 9E 20 1D 94 01 25
             01 18 9E 5C 20 14 9E 5C 5C 20 0F 9E 5C 5C 5C 1C 09 AE 9F 5C 78 70
             02 88 03 28 9E 20 22 94 01 25 04 1D 9E 5C 20 19 9E 5C 5C 20 14 9E
             5C 5C 5C 20 0E 9E 5C 5C 5C 5C 1C 07 AE 9F 5C 78 8A 00 09 9E 21 1C
             9E 19 04 A0 19 04 95 01 94 00 95 01 DE AE B4 B0 94 04 6C FF 9D A0
             5C 5D 5D 5D 19 07 63 AE 1B 0E 94 00 B2 B2 AE 6C FF 8A 84 02 16 01
             83 00 AC 8D 9F 6E 16 01 AC 31 B1 19 05)
       (|qi|::|ABSEQUAL| |qi|::|/.| |qi|::|occurs?| |qi|::|wrapper|
        |qi|::|let|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V63| |qi|::|V64| |qi|::|V65|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|989 996 (DEFUN atom? (V5602) ...)-81|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|atom?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|atom?|
       #164Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 AC 24 01 21 AC 25 02 28 AE
             6F 03 AC 24 01 19 AC 25 02 1A C7 16 01 F8 AC 24 01 18 AC 24 02 3B
             C9 14 AD 33 01 1E C6 1B 6E C6 16 01 1B 69 C9 1B 70 C9 1B 6D C6 19
             03 C6 1B 80 50 C6 1B 80 40 C6 16 01 1B 3B C9 1B 5A C9 1B 57 C6 16
             01 1B 3C C9 1B 4F C9 1B 4C C6 19 04 C7 19 04 AE 6F 05 AC 24 01 55
             AC 25 02 6C AF 6F 06 AC 24 01 4E AC 25 02 56 B0 6F 07 AC 24 01 47
             AC 25 02 48 C7 16 01 F8 AC 24 01 46 AC 25 02 47 C7 16 01 F8 AC 24
             01 45 AC 24 02 44 C9 1B FF 89)
       (|qi|::|string?| |qi|::|true| |qi|::|false| |qi|::|symbol?|
        "~S is not a boolean~%" |qi|::|number?| |qi|::|boolean?|
        |qi|::|character?|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5602|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|998 1019 (DEFUN compile_to_lisp (V1) ...)-82|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|compile_to_lisp| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|compile_to_lisp|
       #116Y(00 00 00 00 01 00 00 00 26 02 9E 20 2F 94 01 25 00 2A 9E 5C 20 26
             9E 5C 5B 20 21 9E 5C 5B 78 25 01 1A 9E 5C 5B 5C 20 14 9E 5C 5B 5C
             5C 20 0D 9E 5C 5B 5C 5C 5C 1C 05 9E 5C 5C 1D 05 E8 2F 0F 19 02 95
             01 94 00 95 00 95 00 94 01 94 01 AC 6F 02 AC 63 DD B1 B0 DE B4 B3
             B5 6F 05 70 06 30 07 7A 6F 08 6F 09 6F 0A 6F 0B 00 5D 5D 5D 7A 6E
             03 0C 2F 0D 19 09)
       (|qi|::|y-combinator| |qi|::|/.| |qi|::|params| |COMMON-LISP|::|DEFUN|
        |COMMON-LISP|::|COND| |qi|::|body| |qi|::|lisp_body|
        |qi|::|insert_errmess| |qi|::|optimise_lisp| |qi|::|listify|
        |qi|::|find_and_bind_choicepoints| |qi|::|insert_type_declarations|
        |qi|::|test_ignore_declarations| |qi|::|record_source|
        |qi|::|compile_to_lisp| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|V1|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1021 1035 (DEFUN listify (V1) ...)-83|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|listify| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|listify|
       #161Y(00 00 00 00 01 00 00 00 26 02 9E 20 1B 94 01 25 00 16 9E 5C 20 12
             9E 5C 5C 20 0D 9E 5C 5C 5B 1C 07 9E 5C 5C 5C 1D 80 42 9E 20 22 94
             01 25 00 1D 9E 5C 20 19 9E 5C 5C 20 14 9E 5C 5C 5B 20 0E 9E 5C 5C
             5C 1C 08 9E 5C 5C 5B 78 24 01 29 9E 20 14 94 01 25 00 0F 9E 5C 20
             0B 9E 5C 5C 20 06 9E 5C 5C 5C 1D 25 9E 21 33 9E 19 02 DB 9F 5C 78
             6C FF 99 00 5D 5D 19 02 95 01 95 00 94 00 94 00 94 03 6C FF 87 9F
             5C 5D 5D 19 05 95 01 94 00 6C FF 7A 9E 5C 78 6C FF 74 30 02 19 03
             DD AE 33 00 16 19 02)
       (|COMMON-LISP|::|CONS| |COMMON-LISP|::|LIST| |qi|::|listify-help|
        |qi|::|listify|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|V1|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1037 1040 (DEFUN listify-help (V8 V9) ...)-84|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|listify-help| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|listify-help|
       #34Y(00 00 00 00 02 00 00 00 26 03 9E 20 05 94 01 24 00 09 DB AF AF 00
            5D 5D 5D 19 03 94 01 AF A0 5C 1B 75)
       (|COMMON-LISP|::|LIST| |qi|::|cons|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|V8| |qi|::|V9|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1042 1064 (DEFUN test_ignore_declarations (V90 V91 V92) ...)-85|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|test_ignore_declarations| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|test_ignore_declarations|
       #115Y(00 00 00 00 03 00 00 00 26 04 93 03 28 1B 29 9E 19 04 95 01 95 00
             B0 94 04 94 03 94 03 DA DB 00 7A 00 5D 7A A2 5C 5D 5D 5D 7A 30 02
             19 06 AC A2 1B 36 92 03 03 93 02 57 92 03 0C 9E 20 09 9E 5C 20 05
             9E 5C 5C 21 4B A0 20 24 9E 20 21 9E 5C 20 1D 9E 5C 5C 20 18 94 03
             95 04 AD A1 5C 5C 79 70 03 24 04 4A AC AE A3 5D 14 B1 29 03 09 44
             DF 2F 06 19 04)
       (|COMMON-LISP|::|DECLARE| |COMMON-LISP|::|IGNORE| |qi|::|insert_ignore|
        |qi|::|occurs?| |qi|::|true| |qi|::|test_ignore_declarations|
        |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V90| |qi|::|V91| |qi|::|V92|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1066 1083 (DEFUN insert_ignore (V1 V2) ...)-86|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|insert_ignore| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|insert_ignore|
       #122Y(00 00 00 00 02 00 00 00 26 03 92 02 31 9E 19 03 95 01 95 00 95 00
             94 00 95 00 94 00 95 08 94 08 94 07 94 07 94 06 94 05 94 0E A4 5C
             5D 7A 00 5D 7A A5 5C 5D 5D 5D 7A 29 02 0B 00 93 02 4F 9F 20 34 9E
             20 31 9E 5C 20 2D 9E 5C 5C 20 28 9E 5C 5C 5C 20 22 9E 5C 5C 5C 5B
             20 1B 9E 5C 5C 5C 5B 5C 20 13 9E 5C 5C 5C 5B 5C 5B 20 0A 9E 5C 5C
             5C 5B 5C 5C 1D FF 9B DA 2F 01 19 03)
       (|qi|::|insert_ignore| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V1| |qi|::|V2|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1085 1086 (DEFUN find_and_bind_choicepoints (V5615) ...)-87|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|find_and_bind_choicepoints| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|find_and_bind_choicepoints|
       #18Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 AE 30 01 19 02)
       (|qi|::|find_choicepoints| |qi|::|bind_choicepoints|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5615|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1088 1098 (DEFUN find_choicepoints (V5620) ...)-88|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|find_choicepoints| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|find_choicepoints|
       #109Y(00 00 00 00 01 00 00 00 26 02 9E 20 80 59 9E 5C 20 80 54 9E 5C 5C
             20 80 4E 9E 5C 5C 5C 1C 80 47 94 01 DA 70 01 AC 24 02 14 AC 24 04
             35 CA 14 AD 33 01 1E C7 16 01 1B 2B C9 16 01 1B 26 9F 5C 78 6F 03
             AC 24 02 6D AC 24 04 6E CA 1B 61 9E 5C 78 00 5D 19 02 94 01 6C FF
             B1 95 02 6C FF AC 30 07 19 02 C9 F8 88 06 66 9E 21 6A 00 19 02)
       (|COMMON-LISP|::|SETQ| |qi|::|qi_=| |qi|::|true| |qi|::|choicepoint?|
        |qi|::|false| "~S is not a boolean~%" |qi|::|wrapper| |qi|::|union|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5620|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1100 1102 (DEFUN bind_choicepoints (V5622 V5623) ...)-89|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|bind_choicepoints| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|bind_choicepoints|
       #29Y(00 00 00 00 02 00 00 00 26 03 93 02 0D DA AF DB B0 00 5D 7A 00 5D
            5D 5D 19 03 9E 19 03)
       (|COMMON-LISP|::|PROG| |COMMON-LISP|::|RETURN|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|V5622| |qi|::|V5623|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1104 1108 (DEFUN choicepoint? (V5632) ...)-90|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|choicepoint?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|choicepoint?|
       #27Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 88 01 03 C9 19 02 AD 6F 02
            AC 2F 03 19 03)
       (|qi|::|symbol?| |qi|::|wrapper| |qi|::|coerce|
        |qi|::|check_choicepoint?| |qi|::|false|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5632|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1110 1110 (DEFUN coerce (X) ...)-91|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|coerce| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|coerce|
       #40Y(00 00 00 00 01 00 00 00 26 02 38 02 72 8F 00 10 00 AF 2F 01 10 02
            B4 B3 31 8D 11 AF 2F 03 11 AC 81 90 00 DE 32 3B 19 02)
       (|SYSTEM|::|*FORMAT-CS*| |SYSTEM|::|STREAM-START-S-EXPRESSION|
        |COMMON-LISP|::|*PRINT-RIGHT-MARGIN*|
        |SYSTEM|::|STREAM-END-S-EXPRESSION| |COMMON-LISP|::|LIST|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|X|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1112 1135 (DEFUN check_choicepoint? (V5639) ...)-92|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|check_choicepoint?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|check_choicepoint?|
       #231Y(00 00 00 00 01 00 00 00 26 02 9E 20 80 D3 94 01 25 00 80 CD 9E 5C
             20 80 C8 9E 5C 78 25 01 80 C1 9E 5C 5C 20 80 BB 9E 5C 5C 78 25 02
             80 B3 9E 5C 5C 5C 20 80 AC 9E 5C 5C 5C 78 25 03 80 A3 9E 5C 5C 5C
             5C 20 80 9B 9E 5C 5C 5C 5C 78 25 00 80 91 9E 5C 5C 5C 5C 5C 20 80
             88 9E 5C 5C 5C 5C 5C 78 25 04 80 7D 9E 5C 5C 5C 5C 5C 5C 20 80 73
             9E 5C 5C 5C 5C 5C 5C 78 25 05 80 67 9E 5C 5C 5C 5C 5C 5C 5C 20 80
             5C 9E 5C 5C 5C 5C 5C 5C 5C 78 25 02 80 4F 9E 5C 5C 5C 5C 5C 5C 5C
             5C 20 80 43 9E 5C 5C 5C 5C 5C 5C 5C 5C 78 25 03 36 9E 5C 5C 5C 5C
             5C 5C 5C 5C 5C 20 2A 9E 5C 5C 5C 5C 5C 5C 5C 5C 5C 78 25 06 1C 9E
             5C 5C 5C 5C 5C 5C 5C 5C 5C 5C 20 0F 9E 5C 5C 5C 5C 5C 5C 5C 5C 5C
             5C 78 24 07 03 CE 19 02 CD 19 02)
       (#\c #\h #\o #\i #\e #\p #\n #\t |qi|::|true| |qi|::|false|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|V5639|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1137 1144 (DEFUN record_source (V5640) ...)-93|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|record_source| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|record_source|
       #58Y(00 00 00 00 01 00 00 00 26 02 9E 20 09 9E 5C 20 05 9E 5C 5C 21 05
            E2 2F 09 19 02 95 01 94 00 AC 9F 5C 78 6F 00 30 01 2E 02 14 25 03
            03 AF 2F 04 AC DF B1 6F 06 2D 03 07 19 04)
       (|qi|::|length| |qi|::|store_arity| |qi|::|dumped?| |qi|::|true|
        |qi|::|write-to-dump-file| |qi|::|source_code|
        |qi|::|factorise-if-turbo| |qi|::|put-prop| |qi|::|record_source|
        |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5640|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1146 1149 (DEFUN factorise-if-turbo (Code) ...)-94|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|factorise-if-turbo| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|factorise-if-turbo|
       #23Y(00 00 00 00 01 00 00 00 26 02 6B 00 24 01 03 9E 19 02 AD 2F 02 19
            02)
       (|qi|::|*turbo*| |qi|::|true| |qi|::|factorise|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Code|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1151 1168 (DEFUN factorise (V2) ...)-95|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|factorise| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|factorise|
       #83Y(00 00 00 00 01 00 00 00 26 02 9E 20 26 9E 5C 20 22 9E 5C 5C 20 1D
            9E 5C 5C 5C 20 17 9E 5C 5C 5C 5B 20 10 9E 5C 5C 5C 5C 1C 09 9E 5C
            5C 5C 5B 78 24 00 03 9E 19 02 95 01 95 00 94 03 94 02 94 02 DB 63
            A2 5C 5B 79 6F 02 00 5D 5D 7A 00 5D 5D 5D 5D 19 04)
       (|COMMON-LISP|::|COND| |COMMON-LISP|::|BLOCK| |qi|::|factor|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|V2|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1170 1211 (DEFUN factor (V7) ...)-96|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|factor| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|factor|
       #265Y(00 00 00 00 01 00 00 00 26 02 9E 20 20 9E 5B 20 1C 9E 5B 5C 20 17
             9E 5B 5C 5C 1C 11 9E 5B 78 02 22 80 5E DA 00 7A 9F 5B 78 8A 01 80
             54 9E 20 80 C1 9E 5B 20 80 BC 9E 5B 5B 20 80 B6 9E 5B 5B 5C 20 80
             AF 9E 5B 5C 20 80 A9 9E 5B 5C 5C 1C 80 A2 9E 5B 5B 78 25 00 80 9A
             94 01 94 00 95 00 94 00 AC B2 63 6E 03 03 DE AD DF 72 43 DE AE E0
             72 43 AD 6F 07 AC 24 08 12 AC 24 0A 38 D6 14 AD 33 01 1E 9E 5B 5C
             78 2F 02 19 02 E3 B3 A6 5C 78 6F 02 95 0C 6C FF 75 00 5D 5D 5D 5D
             19 0A B4 AF B1 B0 2D 04 0F 19 0E E3 B5 B6 B1 70 10 B0 00 5D 5D 5D
             5D 19 0E E5 6F 0C AF 64 E7 AF 00 5D 7A 00 5D 7A 00 7A 73 02 23 6C
             FF 42 AF 6C FF 3E AE AE 70 0E AC 24 08 48 AC 24 0A 4D D6 1B FF A0
             94 01 E3 94 01 9F 5C 78 6F 02 95 05 6C FF 1F 00 5D 5D 5D 5D 19 03
             9E 20 0F 9E 5B 20 0B 9E 5B 5C 20 06 9E 5B 5C 5C 1D 58 EC 2F 13 19
             02)
       (|COMMON-LISP|::|AND| |qi|::|ABSEQUAL| |qi|::|return| |qi|::|part|
        |qi|::|TUPLE| 1. 2. |qi|::|empty?| |qi|::|true| |COMMON-LISP|::|IF|
        |qi|::|false| "tag" |qi|::|gensym| |COMMON-LISP|::|GO|
        |qi|::|reachable?| |qi|::|tag| |qi|::|turbo-optimise-car/cdr|
        "~S is not a boolean~%" |qi|::|factor| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|V7|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1213 1225 (DEFUN tag (V14 V15 V16 ...) ...)-97|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|tag| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|tag|
       #63Y(00 00 00 00 04 00 00 00 26 05 9E 20 0E 9E 5C 20 0A 9E 5C 5C 1C 05
            94 01 24 00 15 DE DB B2 B3 B3 70 03 00 5D 5D 7A A1 14 B0 00 5D 5D
            5D 5D 19 05 DB B1 B2 B1 A2 5C 78 B4 6E 03 02 30 03 1B 68)
       (|COMMON-LISP|::|GO| |COMMON-LISP|::|IF| |qi|::|redirect-tag|
        |qi|::|turbo-optimise-car/cdr| |COMMON-LISP|::|TAGBODY|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V14| |qi|::|V15| |qi|::|V16| |qi|::|V17|) |COMMON-LISP|::|NIL|
       1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1227 1233 (DEFUN redirect-tag (V27 V28 V29) ...)-98|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|redirect-tag| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|redirect-tag|
       #76Y(00 00 00 00 03 00 00 00 26 04 9E 20 15 9E 5C 20 11 9E 5C 5C 1C 0C
            AF 9F 5C 78 8B 00 05 94 01 24 01 06 9E 21 0B 9E 19 04 94 01 AF 00
            5D 5D 19 04 63 AE 1B 0D 94 00 B2 B2 AE 6C 4F 84 02 16 01 83 00 AC
            8D 9F 6F 16 01 AC 31 B1 19 05)
       (|qi|::|ABSEQUAL| |COMMON-LISP|::|GO|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V27| |qi|::|V28| |qi|::|V29|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1235 1243 (DEFUN turbo-optimise-car/cdr (V43 V44) ...)-99|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|turbo-optimise-car/cdr| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|turbo-optimise-car/cdr|
       #59Y(00 00 00 00 02 00 00 00 26 03 9F 20 0E 9F 5C 20 0A 9F 5C 5C 1C 05
            94 02 24 00 03 9E 19 03 9F 5C 78 AE DB A2 5C 7A B0 70 02 DD 70 04
            DF A3 5C 7A B1 70 02 DD 70 04 2D 04 06 19 03)
       (|COMMON-LISP|::|CONSP| |COMMON-LISP|::|CAR| |qi|::|occurrences| 1.
        |qi|::|qi_>| |COMMON-LISP|::|CDR| |qi|::|occ-help|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V43| |qi|::|V44|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1245 1269 (DEFUN occ-help (V61 V62 V63 ...) ...)-100|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|occ-help| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|occ-help|
       #145Y(00 00 00 00 04 00 00 00 26 05 AE 25 00 04 AD 24 00 33 AE 25 00 05
             AD 24 08 80 5F AE 25 08 80 6E AD 25 00 80 69 E4 6F 02 DE AD E0 B4
             00 5D 7A 00 5D 7A 00 7A AE CB 14 B5 00 5D 7A B4 6E 03 07 00 5D 5D
             5D 19 06 DB 6F 02 DD 6F 02 DE AE DF B5 00 5D 7A 00 5D 7A AE E0 B6
             00 5D 7A 00 5D 7A 00 5D 7A AE E0 B6 00 5D 7A B1 DF B8 00 5D 7A B7
             6E 03 07 6E 03 07 00 5D 5D 5D 19 07 E3 6F 02 DE AD DF B4 00 5D 7A
             00 5D 7A 00 7A AE CA 1B FF A8 A0 19 05)
       (|qi|::|true| "Car" |qi|::|gensym| "Cdr" |COMMON-LISP|::|LET|
        |COMMON-LISP|::|CAR| |COMMON-LISP|::|CDR| |qi|::|subst| |qi|::|false|
        "Car" "Cdr")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V61| |qi|::|V62| |qi|::|V63| |qi|::|V64|) |COMMON-LISP|::|NIL|
       1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1271 1278 (DEFUN reachable? (V74 V75) ...)-101|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|reachable?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|reachable?|
       #87Y(00 00 00 00 02 00 00 00 26 03 9E 20 15 9E 5C 20 11 9E 5C 5C 1C 0C
            AE 9F 5C 78 8B 00 05 94 01 24 01 16 9E 20 2F AE 94 02 6C 60 AC 24
            02 0D AC 24 03 12 C9 14 AD 33 01 1E C7 19 03 C7 19 04 C7 19 05 C8
            19 05 AF 95 03 6C 41 AC 24 02 71 AC 24 03 70 C9 1B 5F C8 19 03)
       (|qi|::|ABSEQUAL| |COMMON-LISP|::|GO| |qi|::|true| |qi|::|false|
        "~S is not a boolean~%")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V74| |qi|::|V75|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1280 1285 (DEFUN return (V76) ...)-102|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|return| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|return|
       #37Y(00 00 00 00 01 00 00 00 26 02 9E 20 0E 9E 5C 20 0A 9E 5C 5C 1C 05
            94 01 24 00 07 DB AE 00 5D 5D 19 02 9E 19 02)
       (|COMMON-LISP|::|GO| |COMMON-LISP|::|RETURN|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|V76|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1287 1299 (DEFUN part (V78 V79 V80) ...)-103|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|part| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|part|
       #91Y(00 00 00 00 03 00 00 00 26 04 9F 20 2A 9F 5B 20 26 9F 5B 5B 20 21
            9F 5B 5B 5C 20 1B 9F 5B 5C 20 16 9F 5B 5C 5C 1C 10 AF A0 5B 5B 5C
            78 8B 00 07 9F 5B 5B 78 24 01 08 AD 72 63 AF 30 02 19 04 9F 5B 5B
            5C 78 95 03 A1 5B 5B 78 A2 5B 5B 5C 5C 7A A2 5B 5C 7A A1 7A 29 03
            07 FF AF)
       (|qi|::|ABSEQUAL| |COMMON-LISP|::|AND| |qi|::|@p|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V78| |qi|::|V79| |qi|::|V80|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1301 1301 (DEFUN dumped? NIL ...)-104|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|dumped?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|dumped?|
       #18Y(00 00 00 00 00 00 00 00 26 01 64 DA 71 57 30 01 19 01)
       (|qi|::|*dump-file*| |qi|::|qi_=|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1303 1304 (DEFUN write-to-dump-file (V5662) ...)-105|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|write-to-dump-file| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|write-to-dump-file|
       #17Y(00 00 00 00 01 00 00 00 26 02 6B 00 AE 30 01 19 02)
       (|qi|::|*dump-file*| |qi|::|write-to-file|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5662|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1306 1315 (DEFUN insert_type_declarations (V41) ...)-106|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|insert_type_declarations| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|insert_type_declarations|
       #39Y(00 00 00 00 01 00 00 00 26 02 9E 21 03 9E 19 02 94 01 AC 6F 00 AD
            6F 01 AE DC 95 06 33 00 16 7A AE AE 2D 03 03 19 05)
       (|qi|::|arityf| |qi|::|get_type_of_func|
        |qi|::|insert_type_declarations| |qi|::|insert_type_declaration|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|V41|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1317 1329 (DEFUN insert_type_declaration (V59 V60 V61) ...)-107|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|insert_type_declaration| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|insert_type_declaration|
       #116Y(00 00 00 00 03 00 00 00 26 04 93 02 08 1B 03 93 02 03 92 01 26 A0
             19 04 A1 19 05 9E 5C 5C 78 6F 02 AC 6F 03 24 04 71 DF AD B2 00 5D
             5D 5D 19 05 AF 97 03 A0 5C 5C 78 29 03 07 54 AE 25 00 18 9E 20 15
             9E 5C 20 11 9E 5C 78 25 01 0B 9E 5C 5C 20 06 9E 5C 5C 5C 1D 44 9E
             20 15 9E 5C 20 11 9E 5C 78 25 01 0B 9E 5C 5C 20 06 9E 5C 5C 5C 1D
             41 E0 2F 07 19 04)
       (1. |qi|::|-->| |qi|::|assoctype| |qi|::|empty?| |qi|::|true|
        |COMMON-LISP|::|THE| |qi|::|insert_type_declaration|
        |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V59| |qi|::|V60| |qi|::|V61|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1331 1331 (DEFUN assoctype (V63) ...)-108|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|assoctype| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|assoctype|
       #17Y(00 00 00 00 01 00 00 00 26 02 AD 6B 00 30 01 19 02)
       (|qi|::|*assoctypes*| |qi|::|assoctype-help|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|V63|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1333 1340 (DEFUN assoctype-help (V76 V77) ...)-109|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|assoctype-help| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|assoctype-help|
       #67Y(00 00 00 00 02 00 00 00 26 03 92 01 13 00 19 03 9E 5B 5C 5B 19 03
            AE 95 02 29 02 05 00 93 01 6D 9E 20 18 9E 5B 20 14 9E 5B 5C 20 0F
            9E 5B 5C 5C 1C 09 9E 5B 78 AF 70 00 88 01 55 9E 21 58 DC 2F 03 19
            03)
       (|qi|::|apply| |qi|::|wrapper| |qi|::|assoctype-help|
        |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V76| |qi|::|V77|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1342 1350 (DEFUN initialise-assoctypes NIL ...)-110|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|initialise-assoctypes| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|initialise-assoctypes|
       #44Y(00 00 00 00 00 00 00 00 26 01 DA DB 7B 02 DC DD 7B 02 DE DF 7B 02
            E0 DF 7B 02 E1 E2 7B 02 E3 E4 7B 02 E5 E4 7B 02 61 07 0F 0C 19 01)
       (#Y(|qi|::|initialise-assoctypes-1|
           #16Y(00 00 00 00 01 00 00 00 26 02 AD DA 30 01 19 02)
           (|qi|::|string| |qi|::|==|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
           (|qi|::|X|) |COMMON-LISP|::|NIL| 1)
        |COMMON-LISP|::|STRING|
        #Y(|qi|::|initialise-assoctypes-2|
           #16Y(00 00 00 00 01 00 00 00 26 02 AD DA 30 01 19 02)
           (|qi|::|character| |qi|::|==|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
           (|qi|::|X|) |COMMON-LISP|::|NIL| 1)
        |COMMON-LISP|::|CHARACTER|
        #Y(|qi|::|initialise-assoctypes-3|
           #16Y(00 00 00 00 01 00 00 00 26 02 AD DA 30 01 19 02)
           (|qi|::|symbol| |qi|::|==|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
           (|qi|::|X|) |COMMON-LISP|::|NIL| 1)
        |COMMON-LISP|::|SYMBOL|
        #Y(|qi|::|initialise-assoctypes-4|
           #16Y(00 00 00 00 01 00 00 00 26 02 AD DA 30 01 19 02)
           (|qi|::|boolean| |qi|::|==|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
           (|qi|::|X|) |COMMON-LISP|::|NIL| 1)
        #Y(|qi|::|initialise-assoctypes-5|
           #16Y(00 00 00 00 01 00 00 00 26 02 AD DA 30 01 19 02)
           (|qi|::|number| |qi|::|==|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
           (|qi|::|X|) |COMMON-LISP|::|NIL| 1)
        |COMMON-LISP|::|NUMBER|
        #Y(|qi|::|initialise-assoctypes-6|
           #16Y(00 00 00 00 01 00 00 00 26 02 AD DA 30 01 19 02)
           (|qi|::|goals| |qi|::|==|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
           (|qi|::|X|) |COMMON-LISP|::|NIL| 1)
        |COMMON-LISP|::|LIST| |qi|::|list_type?| |qi|::|*assoctypes*|)
       (|COMMON-LISP|::|NIL| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1352 1352 (initialise-assoctypes)-111|
   #14Y(00 00 00 00 00 00 00 00 20 01 2E 00 19 01)
   (|qi|::|initialise-assoctypes|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1354 1359 (DEFUN list_type? (V96) ...)-112|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|list_type?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|list_type?|
       #33Y(00 00 00 00 01 00 00 00 26 02 9E 20 0E 94 01 25 00 09 9E 5C 20 05
            9E 5C 5C 1D 03 C7 19 02 C6 19 02)
       (|qi|::|list| |qi|::|true| |qi|::|false|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|V96|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1361 1363 (DEFUN get_type_of_func (F) ...)-113|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|get_type_of_func| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|get_type_of_func|
       #29Y(00 00 00 00 01 00 00 00 26 02 AD 6B 00 63 71 6E 93 00 07 AC 76 00
            2F 01 19 03 00 19 03)
       (|qi|::|*sfht*| |qi|::|normalise_type|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|F|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1365 1659 (DEFUN optimise_lisp (V405) ...)-114|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|optimise_lisp| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|optimise_lisp|
       #2615Y(00 00 00 00 01 00 00 00 26 02 9E 20 30 9E 5C 20 2C 9E 5C 5B 20 27
              9E 5C 5B 5C 20 21 9E 5C 5B 5C 5C 1C 1A 9E 5C 5C 1C 15 DA 94 02 70
              01 AC 24 02 84 AD AC 25 03 84 BA C8 F8 88 05 84 B7 9E 20 09 94 01
              DA 70 01 88 05 84 B0 9E 20 31 94 01 25 08 2C 9E 5C 20 28 9E 5C 5B
              20 23 9E 5C 5B 5C 20 1D 9E 5C 5B 5C 5C 1C 16 9E 5C 5C 20 11 9E 5C
              5C 5C 1C 0B 9E 5C 5B 78 E3 70 01 88 05 84 88 9E 20 1D 94 01 25 0B
              18 9E 5C 20 14 9E 5C 5C 20 0F 9E 5C 5C 5C 1C 09 9E 5C 78 6F 0C 88
              05 84 72 9E 20 1D 9E 5C 20 19 9E 5C 5B 1C 14 9E 5C 5C 20 0F 9E 5C
              5C 5C 1C 09 94 01 E8 70 01 88 05 84 5A 9E 20 37 94 01 25 0F 32 9E
              5C 20 2E 9E 5C 5B 20 29 9E 5C 5B 5C 20 23 9E 5C 5B 5C 5C 1C 1C 9E
              5C 5C 1C 17 9E 5C 5B 78 E3 70 01 AC 24 02 84 40 AC 25 03 84 4E C8
              F8 88 05 84 4C 9E 20 0F 94 01 25 11 0A 9E 5C 20 06 9E 5C 5C 1D 84
              41 9E 20 37 94 01 25 05 32 9E 5C 20 2E 9E 5C 5B 20 29 9E 5C 5B 78
              25 01 22 9E 5C 5B 5C 20 1C 9E 5C 5B 5C 5B 1C 15 9E 5C 5B 5C 5C 20
              0E 9E 5C 5B 5C 5C 5C 1C 06 9E 5C 5C 1D 84 0B 9E 20 38 94 01 25 05
              33 9E 5C 20 2F 9E 5C 5B 20 2A 9E 5C 5B 78 25 01 23 9E 5C 5B 5C 20
              1D 9E 5C 5B 5C 5C 20 16 9E 5C 5B 5C 5C 5B 1C 0E 9E 5C 5B 5C 5C 5C
              1C 06 9E 5C 5C 1D 83 D8 9E 20 80 65 94 01 25 05 80 5F 9E 5C 20 80
              5A 9E 5C 5B 20 80 54 9E 5C 5B 78 25 01 80 4C 9E 5C 5B 5C 20 80 45
              9E 5C 5B 5C 5B 20 3E 9E 5C 5B 5C 5B 5C 20 36 9E 5C 5B 5C 5B 5C 5C
              1C 2D 9E 5C 5B 5C 5C 20 26 9E 5C 5B 5C 5C 5C 1C 1E 9E 5C 5C 1C 19
              9E 5C 5B 5C 5B 78 E3 70 01 AC 24 02 83 9A AC 25 03 83 C7 C8 F8 88
              05 83 C5 9E 20 80 6A 94 01 25 05 80 64 9E 5C 20 80 5F 9E 5C 5B 20
              80 59 9E 5C 5B 78 25 01 80 51 9E 5C 5B 5C 20 80 4A 9E 5C 5B 5C 5C
              20 80 42 9E 5C 5B 5C 5C 5B 20 3A 9E 5C 5B 5C 5C 5B 5C 20 31 9E 5C
              5B 5C 5C 5B 5C 5C 1C 27 9E 5C 5B 5C 5C 5C 1C 1F 9E 5C 5C 1C 1A 9E
              5C 5B 5C 5C 5B 78 E3 70 01 AC 24 02 83 8B AC 25 03 83 BA C8 F8 88
              05 83 B8 9E 20 80 5E 94 01 25 05 80 58 9E 5C 20 80 53 9E 5C 5B 20
              80 4D 9E 5C 5B 78 25 01 80 45 9E 5C 5B 5C 20 3F 9E 5C 5B 5C 5C 20
              38 9E 5C 5B 5C 5C 5C 1C 30 9E 5C 5C 1C 2B 9E 5C 5B 5C 78 6F 16 AC
              24 02 83 84 AC 25 03 83 8D 9F 5C 5B 5C 5C 78 6F 16 AC 24 02 83 76
              AC 25 03 83 77 C8 16 01 F8 88 05 83 77 9E 20 80 5E 94 01 25 05 80
              58 9E 5C 20 80 53 9E 5C 5B 20 80 4D 9E 5C 5B 78 25 01 80 45 9E 5C
              5B 5C 20 3F 9E 5C 5B 5C 5C 20 38 9E 5C 5B 5C 5C 5C 1C 30 9E 5C 5C
              1C 2B 9E 5C 5B 5C 78 6F 18 AC 24 02 83 3E AC 25 03 83 47 9F 5C 5B
              5C 5C 78 6F 18 AC 24 02 83 30 AC 25 03 83 31 C8 16 01 F8 88 05 83
              31 9E 20 30 94 01 25 05 2B 9E 5C 20 27 9E 5C 5B 20 22 9E 5C 5B 78
              25 01 1B 9E 5C 5B 5C 20 15 9E 5C 5B 5C 5C 20 0E 9E 5C 5B 5C 5C 5C
              1C 06 9E 5C 5C 1D 83 08 9E 20 1B 94 01 25 1A 16 9E 5C 20 12 9E 5C
              78 25 1B 0C 9E 5C 5C 20 07 9E 5C 5C 5C 1D 86 CA 9E 20 06 94 01 24
              1C 82 F6 9E 20 15 94 01 25 1E 10 9E 5C 20 0C 9E 5C 5C 20 07 9E 5C
              5C 5C 1D 82 E9 9E 20 0F 94 01 25 20 0A 9E 5C 20 06 9E 5C 5C 1D 82
              DD 9E 20 15 94 01 25 22 10 9E 5C 20 0C 9E 5C 5C 20 07 9E 5C 5C 5C
              1D 82 CA 9E 20 83 E6 94 01 25 05 83 E0 9E 5C 20 83 DB 9E 5C 5B 20
              83 D5 9E 5C 5B 78 25 24 83 CD 9E 5C 5B 5C 20 83 C6 9E 5C 5B 5C 5B
              20 83 BE 9E 5C 5B 5C 5B 78 25 25 83 B4 9E 5C 5B 5C 5B 5C 20 83 AB
              9E 5C 5B 5C 5B 5C 5B 20 83 A1 9E 5C 5B 5C 5B 5C 5B 5C 20 83 96 9E
              5C 5B 5C 5B 5C 5B 5C 5C 20 83 8A 9E 5C 5B 5C 5B 5C 5B 5C 5C 5B 20
              83 7D 9E 5C 5B 5C 5B 5C 5B 5C 5C 5B 78 25 26 83 6E 9E 5C 5B 5C 5B
              5C 5B 5C 5C 5B 5C 20 83 60 9E 5C 5B 5C 5B 5C 5B 5C 5C 5B 5C 5B 20
              83 51 9E 5C 5B 5C 5B 5C 5B 5C 5C 5B 5C 5B 5C 20 83 41 9E 5C 5B 5C
              5B 5C 5B 5C 5C 5B 5C 5B 5C 5C 1C 83 30 9E 5C 5B 5C 5B 5C 5B 5C 5C
              5B 5C 5C 20 83 21 9E 5C 5B 5C 5B 5C 5B 5C 5C 5B 5C 5C 5C 1C 83 11
              9E 5C 5B 5C 5B 5C 5B 5C 5C 5C 1C 83 04 9E 5C 5B 5C 5B 5C 5C 1C 82
              FA 9E 5C 5B 5C 5C 1C 82 F2 9E 5C 5C 1C 82 EC 9E 5C 5B 5C 5B 5C 5B
              5C 5C 5B 5C 5B 78 E3 70 01 AC 24 02 81 DA AC 24 03 82 CC C9 14 AD
              33 01 1E C7 16 01 1B FB 5F C8 16 01 1B FB 59 9F 5C 5B 78 64 70 01
              AC 24 02 69 AC 24 03 6B C9 1B 5D C9 1B 5A 9E 5C 5B 1B 20 94 01 E0
              E1 95 04 33 00 16 1B 81 68 95 01 E4 9E 5B 5C 5B 1B 81 7A 95 01 E7
              9E 5B 1B 81 72 9E 5C 5C 78 29 01 03 FA EA C7 16 01 1B FB CC C8 16
              01 1B FB C6 9F 5C 5B 5C 78 6F 10 AC 24 02 69 AC 24 03 6B C9 1B FF
              8F C9 1B FF 8B 9E 5C 5B 5C 5B 19 02 D7 1B 84 CF ED 9F 5C 5B 5C 1B
              84 C9 D8 1B 82 2C C7 1B 3E C7 16 01 1B 39 C9 1B FF 68 C9 1B FF 64
              C7 16 01 1B FC 72 C8 16 01 1B FC 6C 9F 5C 5B 5C 5B 5C 78 6F 10 AC
              24 02 57 AC 25 03 5F A0 5C 5B 5C 5B 5C 78 6F 14 AC 24 02 49 AC 25
              03 4A C8 16 01 F8 AC 24 02 4A AC 24 03 4C C9 1B FF 26 C9 1B FF 22
              95 01 94 00 95 00 EF 9E 5B 1B 80 AA C7 1B 80 40 C7 16 01 1B 3B C9
              1B FF 09 C9 1B FF 05 C7 16 01 1B FC 81 C8 16 01 1B FC 7B 9F 5C 5B
              5C 5C 5B 5C 78 6F 10 AC 24 02 55 AC 25 03 5E A0 5C 5B 5C 5C 5B 5C
              78 6F 14 AC 24 02 47 AC 25 03 48 C8 16 01 F8 AC 24 02 48 AC 24 03
              4A C9 1B FE C5 C9 1B FE C1 95 01 94 00 95 00 EF 9E 5C 78 9F 5B 1B
              81 03 C7 1B FC 92 C7 16 01 1B FC 8C C9 1B FE A4 C9 1B FE A0 95 01
              94 00 95 00 03 17 1B 24 C7 1B FC D8 C7 16 01 1B FC D2 C9 1B FE 88
              C9 1B FE 84 95 01 94 00 95 00 03 17 1B 08 95 01 94 00 95 00 03 19
              14 94 01 28 F9 A8 14 9F 5C 5B 1B 80 B6 F7 E0 A0 5C 14 33 00 16 1B
              83 B3 95 01 03 1F 1B 09 03 21 1B 83 9E 95 01 03 23 14 94 01 28 F9
              81 14 9F 5C 78 6C F9 7A 00 5D 5D 5D 19 03 C7 16 01 1B 80 FE C8 16
              01 1B 80 F8 9F 5C 5B 5C 5B 5C 5B 5C 5C 5B 5C 5B 5C 78 6F 10 AC 24
              02 60 AC 24 03 62 C9 1B FE 10 95 01 94 00 95 00 94 00 95 00 94 00
              95 00 95 00 94 00 95 00 65 27 EF E3 DC 00 5D 7A A0 5B 5C 78 94 08
              94 08 A3 5C 5D 7A 00 5D 7A 6C F9 1E 00 5D 5D 7A 00 5D 5D 19 0C 95
              01 94 00 95 00 65 29 DF 94 02 00 5D 7A 6C F9 04 CA 1B 12 95 01 94
              00 95 00 65 2B DF 94 02 00 5D 7A 6C F8 F0 CA 14 A0 5C 5D 14 6C F8
              E7 00 5D 5D 5D 19 05 65 27 DF A0 5C 5B 5C 5D 1B 82 ED 95 01 95 00
              65 2D 9F 5B 5C 78 6C F8 C9 94 02 6C F8 C4 A0 5C 78 6C F8 BE 00 5D
              5D 5D 5D 19 04 03 2F 1B 2F 03 30 1B 2B 65 31 9F 5C 5B 5C 78 6C F8
              A5 E3 DC DD 00 5D 7A 00 5D 7A 00 5D 5D 1B 82 B3 03 33 1B 0E 03 34
              1B 0A 03 36 1B 06 03 38 1B 02 03 3A 14 9F 5C 5B 1B 82 92 65 3D 9F
              5C 1B 82 8B 03 3D 1B 82 84 C8 F8 88 05 FF 1F 9E 20 30 94 01 25 05
              2B 9E 5C 20 27 9E 5C 5B 20 22 9E 5C 5B 78 25 28 1B 9E 5C 5B 5C 20
              15 9E 5C 5B 5C 5C 20 0E 9E 5C 5B 5C 5C 5C 1C 06 9E 5C 5C 1D FF 23
              9E 20 30 94 01 25 05 2B 9E 5C 20 27 9E 5C 5B 20 22 9E 5C 5B 78 25
              2A 1B 9E 5C 5B 5C 20 15 9E 5C 5B 5C 5C 20 0E 9E 5C 5B 5C 5C 5C 1C
              06 9E 5C 5C 1D FF 04 9E 20 28 94 01 25 05 23 9E 5C 20 1F 9E 5C 5B
              20 1A 9E 5C 5B 78 25 24 13 9E 5C 5B 5C 20 0D 9E 5C 5B 5C 5C 1C 06
              9E 5C 5C 1D FE F9 9E 20 35 94 01 25 2C 30 9E 5C 20 2C 9E 5C 5B 20
              27 9E 5C 5B 78 25 05 20 9E 5C 5B 5C 20 1A 9E 5C 5B 5C 5C 1C 13 9E
              5C 5C 20 0E 9E 5C 5C 5C 20 08 9E 5C 5C 5C 5C 1D FE CC 9E 20 28 94
              01 25 05 23 9E 5C 20 1F 9E 5C 5B 20 1A 9E 5C 5B 78 25 2E 13 9E 5C
              5B 5C 20 0D 9E 5C 5B 5C 5C 1C 06 9E 5C 5C 1D FE C0 9E 20 28 94 01
              25 05 23 9E 5C 20 1F 9E 5C 5B 20 1A 9E 5C 5B 78 25 18 13 9E 5C 5B
              5C 20 0D 9E 5C 5B 5C 5C 1C 06 9E 5C 5C 1D FE 99 9E 20 28 94 01 25
              05 23 9E 5C 20 1F 9E 5C 5B 20 1A 9E 5C 5B 78 25 14 13 9E 5C 5B 5C
              20 0D 9E 5C 5B 5C 5C 1C 06 9E 5C 5C 1D FE 72 9E 20 28 94 01 25 05
              23 9E 5C 20 1F 9E 5C 5B 20 1A 9E 5C 5B 78 25 32 13 9E 5C 5B 5C 20
              0D 9E 5C 5B 5C 5C 1C 06 9E 5C 5C 1D FE 60 9E 20 28 94 01 25 05 23
              9E 5C 20 1F 9E 5C 5B 20 1A 9E 5C 5B 78 25 16 13 9E 5C 5B 5C 20 0D
              9E 5C 5B 5C 5C 1C 06 9E 5C 5C 1D FE 39 9E 20 28 94 01 25 05 23 9E
              5C 20 1F 9E 5C 5B 20 1A 9E 5C 5B 78 25 35 13 9E 5C 5B 5C 20 0D 9E
              5C 5B 5C 5C 1C 06 9E 5C 5C 1D FE 12 9E 20 28 94 01 25 05 23 9E 5C
              20 1F 9E 5C 5B 20 1A 9E 5C 5B 78 25 37 13 9E 5C 5B 5C 20 0D 9E 5C
              5B 5C 5C 1C 06 9E 5C 5C 1D FD EB 9E 20 28 94 01 25 05 23 9E 5C 20
              1F 9E 5C 5B 20 1A 9E 5C 5B 78 25 39 13 9E 5C 5B 5C 20 0D 9E 5C 5B
              5C 5C 1C 06 9E 5C 5C 1D FD C4 9E 20 1B 94 01 25 3B 16 9E 5C 20 12
              9E 5C 78 25 3C 0C 9E 5C 5C 20 07 9E 5C 5C 5C 1D FD AF 9E 20 1C 94
              01 25 3B 17 9E 5C 20 13 9E 5C 5C 20 0E 9E 5C 5C 78 25 3C 07 9E 5C
              5C 5C 1D FD 97 9E 20 31 94 01 25 3E 2C 9E 5C 20 28 9E 5C 5C 20 23
              9E 5C 5C 78 25 3C 1C 9E 5C 5C 5C 1C 16 03 3F 14 9F 5C 5B 14 6C F5
              E5 00 5D 5D 19 02 E0 AE 33 00 16 19 02 9E 21 76 9E 19 02)
       (|COMMON-LISP|::|COND| |qi|::|qi_=| |qi|::|true| |qi|::|false|
        "~S is not a boolean~%" |qi|::|wrapper| |qi|::|optimise_lisp|
        |qi|::|optimise_car/cdr| |qi|::|set| |COMMON-LISP|::|QUOTE|
        |COMMON-LISP|::|SETQ| |qi|::|map| |qi|::|simple_map?|
        |COMMON-LISP|::|MAPCAR| |COMMON-LISP|::|LET*| |qi|::|value|
        |qi|::|symbol?| |qi|::|length| |COMMON-LISP|::|LIST-LENGTH|
        |COMMON-LISP|::|NULL| |qi|::|boolean?| |COMMON-LISP|::|EQ|
        |qi|::|number?| |COMMON-LISP|::|EQL| |qi|::|character?|
        |qi|::|ABSEQUAL| |qi|::|input+| |qi|::|$$| |qi|::|list|
        |COMMON-LISP|::|LIST| |qi|::|cons| |COMMON-LISP|::|CONS|
        |qi|::|reverse| |COMMON-LISP|::|REVERSE| |qi|::|append|
        |COMMON-LISP|::|APPEND| |qi|::|not| |qi|::|escape?| |qi|::|fail-if|
        |COMMON-LISP|::|NOT| |qi|::|and| |COMMON-LISP|::|AND| |qi|::|or|
        |COMMON-LISP|::|OR| |qi|::|if| |COMMON-LISP|::|IF| |qi|::|cons?|
        |COMMON-LISP|::|CONSP| |COMMON-LISP|::|CHARACTERP|
        |COMMON-LISP|::|MEMBER| |qi|::|tuple?| |qi|::|TUPLE-P|
        |COMMON-LISP|::|NUMBERP| |qi|::|rational?| |COMMON-LISP|::|RATIONALP|
        |qi|::|integer?| |COMMON-LISP|::|INTEGERP| |qi|::|string?|
        |COMMON-LISP|::|STRINGP| |COMMON-LISP|::|+| 1. |COMMON-LISP|::|1+|
        |COMMON-LISP|::|-| |COMMON-LISP|::|1-|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V405|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1661 1661 (DEFUN pp (X) ...)-115|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|pp| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|pp|
       #19Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 38 01 31 8F 19 02)
       (|qi|::|source_code|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|X|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1663 1668 (DEFUN simple_map? (V5364) ...)-116|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|simple_map?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|simple_map?|
       #41Y(00 00 00 00 01 00 00 00 26 02 9E 20 16 9E 5C 20 12 9E 5C 5C 1C 0D
            94 01 25 00 08 9E 5C 78 6F 01 24 02 03 C9 19 02 C8 19 02)
       (|COMMON-LISP|::|QUOTE| |qi|::|arityf| 1. |qi|::|true| |qi|::|false|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5364|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1670 1670 (SETQ *turbo* 'false)-117|
   #15Y(00 00 00 00 00 00 00 00 20 01 C5 0F 01 19 01)
   (|qi|::|false| |qi|::|*turbo*|)
   (|COMMON-LISP|::|NIL| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1672 1677 (DEFUN optimise_car/cdr (V5776) ...)-118|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|optimise_car/cdr| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|optimise_car/cdr|
       #47Y(00 00 00 00 01 00 00 00 26 02 6B 00 24 01 11 9E 20 09 9E 5C 20 05
            9E 5C 5C 1D 08 DD 2F 04 19 02 9E 19 02 94 01 9F 5C 78 6F 02 00 5D
            5D 19 02)
       (|qi|::|*turbo*| |qi|::|true| |qi|::|occ*| |qi|::|optimise_car/cdr|
        |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5776|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1679 1682 (DEFUN turbo (V14) ...)-119|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|turbo| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|turbo|
       #30Y(00 00 00 00 01 00 00 00 26 02 AD 24 00 09 AD 25 03 08 C9 0F 02 19
            02 C6 1B 79 DF 33 00 1E)
       (|COMMON-LISP|::|+| |qi|::|true| |qi|::|*turbo*| |COMMON-LISP|::|-|
        |qi|::|false| "turbo expects a + or a -.~%")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|V14|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1684 1693 (DEFUN isocar/cdrs (V5775) ...)-120|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|isocar/cdrs| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|isocar/cdrs|
       #162Y(00 00 00 00 01 00 00 00 26 02 9E 20 1D 9E 5C 20 19 9E 5C 5C 1C 14
             94 01 DA 70 01 AC 24 02 37 AC 25 04 80 42 C9 F8 88 06 80 5E 9E 20
             80 6E 9E 5C 20 80 69 9E 5C 5C 1C 80 63 94 01 E1 70 01 AC 24 02 31
             AC 24 04 3D CA 14 AD 33 01 1E C7 16 01 1B 54 C9 16 01 1B 4F 9F 5C
             78 6F 03 AC 24 02 6D AC 24 04 6E CA 1B 61 CA 1B 5E C7 16 01 1B 16
             C9 16 01 1B 11 9F 5C 78 6F 03 AC 24 02 6D AC 24 04 6E CA 1B 44 C9
             F8 89 06 14 AD 00 5D 19 02 94 01 6C FF 78 95 02 6C FF 73 33 02 23
             19 02 9E 21 6E 00 19 02)
       (|COMMON-LISP|::|CAR| |qi|::|qi_=| |qi|::|true| |qi|::|symbol?|
        |qi|::|false| "~S is not a boolean~%" |qi|::|wrapper|
        |COMMON-LISP|::|CDR|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5775|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1695 1695 (DEFUN occ* (V5777) ...)-121|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|occ*| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|occ*|
       #21Y(00 00 00 00 01 00 00 00 26 02 63 AE 6F 00 AF DB 2D 04 02 19 02)
       (|qi|::|isocar/cdrs| |qi|::|unoptimised| |qi|::|occ**|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5777|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1697 1709 (DEFUN occ** (V5783 V5784 V5785 ...) ...)-122|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|occ**| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|occ**|
       #125Y(00 00 00 00 04 00 00 00 26 05 93 04 80 40 1B 80 45 A0 19 05 DB B1
             72 63 B0 00 5D 5D 5D 19 05 B0 AF 6F 03 B0 DA 29 04 09 22 94 03 E2
             6F 09 AC AE 00 5D 7A A4 7A 95 06 AE B0 B4 6E 03 0A DC 29 04 0B 09
             B0 95 04 B0 B0 29 04 09 00 92 04 08 92 02 05 AD 24 00 FF BB 92 03
             05 AD 24 00 FF B6 92 03 05 AD 24 02 FF B9 A0 20 0C 94 03 AF 70 04
             DF 70 06 88 07 FF B4 A0 21 4A E5 2F 0C 19 05)
       (|qi|::|unoptimised| |COMMON-LISP|::|LET*| |qi|::|optimised|
        |qi|::|isocar/cdrs| |qi|::|occurrences| 1. |qi|::|qi_>| |qi|::|wrapper|
        "V" |qi|::|gensym| |qi|::|subst| |qi|::|occ**|
        |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5783| |qi|::|V5784| |qi|::|V5785| |qi|::|V5786|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1711 1717 (DEFUN occurrences (V5797 V5798) ...)-123|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|occurrences| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|occurrences|
       #41Y(00 00 00 00 02 00 00 00 26 03 AE AE 70 00 88 01 06 9E 21 06 C8 19
            03 C7 19 03 AE 94 02 6C 6B AF 95 03 6C 66 33 02 37 19 03)
       (|qi|::|qi_=| |qi|::|wrapper| 1. 0.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5797| |qi|::|V5798|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1719 1720 (DEFUN smallnum? (V5803) ...)-124|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|smallnum?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|smallnum?|
       #51Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 AC 24 01 10 AC 24 04 1B CA
            14 AD 33 01 1E C6 19 04 C9 19 04 DC AF 70 03 AC 24 01 72 AC 24 04
            71 CA 1B 66 C9 19 03)
       (|qi|::|number?| |qi|::|true| 100. |qi|::|qi_>| |qi|::|false|
        "~S is not a boolean~%")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5803|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1722 1734 (DEFUN insert_errmess (V5363 V5364) ...)-125|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|insert_errmess| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|insert_errmess|
       #83Y(00 00 00 00 02 00 00 00 26 03 9E 20 13 9E 5B 20 0F 9E 5B 5C 20 0A
            9E 5B 5C 5C 1C 04 9E 5C 1D 0B 9E 21 25 DE 2F 05 19 03 9F 19 04 94
            01 94 00 64 70 00 24 01 73 AC 64 DC DD B3 00 5D 7A 00 5D 7A 00 5D
            7A 00 5D 5D 19 04 94 01 AF 95 03 28 FF BA 5D 19 03)
       (|qi|::|qi_=| |qi|::|true| |qi|::|f_error| |COMMON-LISP|::|QUOTE|
        |qi|::|insert_errmess| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5363| |qi|::|V5364|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1736 1739 (DEFUN f_error (X) ...)-126|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|f_error| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|f_error|
       #37Y(00 00 00 00 01 00 00 00 26 02 DA 6B 01 AF 33 02 15 9E 5E 14 8F 1B
            0A DC AE 8B 03 05 AD 6F 04 2F 05 E0 33 00 1E)
       (#Y(|qi|::|f_error-1|
           #31Y(00 00 00 00 02 00 00 00 21 18 00 10 00 DB B3 38 02 31 95 B1 B3
                31 90 DC B3 31 94 A1 11 19 04)
           (|SYSTEM|::|*FORMAT-CS*| "error: partial function " #\;)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        |COMMON-LISP|::|*STANDARD-OUTPUT*| "track ~A ? "
        |COMMON-LISP|::|Y-OR-N-P| |qi|::|source_code| |qi|::|track_function|
        "")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|X|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1741 1746 (DEFUN params (V5812) ...)-127|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|params| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|params|
       #48Y(00 00 00 00 01 00 00 00 26 02 9E 20 14 94 01 25 00 0F 9E 5C 20 0B
            9E 5C 5C 20 06 9E 5C 5C 5C 1D 03 00 19 02 95 01 94 00 9E 5C 78 28
            5D 5D 19 03)
       (|qi|::|/.|) (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5812|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1748 1754 (DEFUN body (V5814) ...)-128|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|body| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|body|
       #58Y(00 00 00 00 01 00 00 00 26 02 9E 20 14 94 01 25 00 0F 9E 5C 20 0B
            9E 5C 5C 20 06 9E 5C 5C 5C 1D 0D 9E 20 05 94 01 24 01 0D DC 2F 03
            19 02 9E 5C 5C 78 29 01 03 54 9E 5C 19 02)
       (|qi|::|/.| |qi|::|cases| |qi|::|body| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5814|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1756 1760 (DEFUN lisp_body (V5817 V5818) ...)-129|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|lisp_body| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|lisp_body|
       #40Y(00 00 00 00 02 00 00 00 26 03 92 01 13 00 19 03 AE 94 02 70 00 AF
            95 03 28 03 5D 19 03 93 01 6D 9E 21 6D DB 2F 02 19 03)
       (|qi|::|lisp_case| |qi|::|lisp_body| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5817| |qi|::|V5818|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1762 1767 (DEFUN lisp_case (V5819 V5820) ...)-130|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|lisp_case| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|lisp_case|
       #43Y(00 00 00 00 02 00 00 00 26 03 9E 20 09 9E 5C 20 05 9E 5C 5C 1D 05
            DC 2F 03 19 03 AE 94 02 70 00 AF A0 5C 78 70 01 00 5D 5D 19 03)
       (|qi|::|lisp_code_tests| |qi|::|lisp_code| |qi|::|lisp_case|
        |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5819| |qi|::|V5820|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1769 1773 (DEFUN lisp_code_tests (V5821 V5822) ...)-131|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|lisp_code_tests| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|lisp_code_tests|
       #61Y(00 00 00 00 02 00 00 00 26 03 9E 59 1E 2D 9E 20 04 9E 5C 1D 05 DB
            63 AF 1B 13 AE 94 02 30 00 19 03 94 00 B2 AD 70 00 84 02 16 01 83
            00 AC 8D 9F 70 16 01 AC 31 B1 16 01 5D 19 03 19 03)
       (|qi|::|lisp_code_test| |COMMON-LISP|::|AND|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5821| |qi|::|V5822|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1775 1786 (DEFUN lisp_code_test (V5823 V5824) ...)-132|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|lisp_code_test| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|lisp_code_test|
       #93Y(00 00 00 00 02 00 00 00 26 03 9E 20 0E 94 01 25 00 09 9E 5C 20 05
            9E 5C 5C 1D 24 9E 20 16 9E 5C 20 12 9E 5C 5C 20 0D 9E 5C 5C 5C 1C
            07 94 01 6F 03 88 04 12 DE AF A0 14 70 02 00 5D 5D 19 03 DB AF A0
            5C 5B 1B 71 95 01 94 02 6F 05 B0 94 02 70 02 B1 A0 5C 78 70 02 00
            5D 5D 5D 19 04)
       (|qi|::|cons?| |COMMON-LISP|::|CONSP| |qi|::|lisp_code| |qi|::|arith?|
        |qi|::|wrapper| |qi|::|map_arith|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5823| |qi|::|V5824|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1788 1788 (DEFUN arith? (V5828) ...)-133|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|arith?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|arith?| #17Y(00 00 00 00 01 00 00 00 26 02 AD 6B 00 30 01 19 02)
       (|qi|::|*arith*| |qi|::|element?|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5828|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1790 1790 (DEFVAR *arith* '(qi_> qi_< qi_>= ...))-134|
   #24Y(00 00 00 00 00 00 00 00 20 01 DA 31 62 DB 8C 57 04 DB DC 31 5A C6 19
        01)
   ((|COMMON-LISP|::|SPECIAL| |qi|::|*arith*|) |qi|::|*arith*|
    (|qi|::|qi_>| |qi|::|qi_<| |qi|::|qi_>=| |qi|::|qi_<=|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1792 1796 (DEFUN map_arith (x) ...)-135|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|map_arith| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|map_arith|
       #41Y(00 00 00 00 01 00 00 00 26 02 AD 24 00 0F AD 24 02 0E AD 24 04 0D
            AD 24 06 0C 00 19 02 C6 19 02 C8 19 02 CA 19 02 CC 19 02)
       (|qi|::|qi_>| |COMMON-LISP|::|>| |qi|::|qi_<| |COMMON-LISP|::|<|
        |qi|::|qi_>=| |COMMON-LISP|::|>=| |qi|::|qi_<=| |COMMON-LISP|::|<=|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|x|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1798 1800 (DEFUN wrapper (Test) ...)-136|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|wrapper| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|wrapper|
       #29Y(00 00 00 00 01 00 00 00 26 02 AD 24 00 09 AD 24 01 08 DC AE 33 01
            1E 02 19 02 00 19 02)
       (|qi|::|true| |qi|::|false| "~A is not a boolean.~%")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Test|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1802 1862 (DEFUN lisp_code (V72 V73) ...)-137|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|lisp_code| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|lisp_code|
       #479Y(00 00 00 00 02 00 00 00 26 03 00 2B 01 7F 03 00 00 9F 20 0F 9F 5C
             20 0B 9F 5C 5C 1C 06 94 02 24 00 80 E6 9F 20 1C 94 02 25 01 17 9F
             5C 20 13 9F 5C 5C 20 0E 9F 5C 5C 5C 20 08 9F 5C 5C 5C 5C 1D 80 CA
             9F 20 15 94 02 25 03 10 9F 5C 20 0C 9F 5C 5C 20 07 9F 5C 5C 5C 1D
             80 D8 9F 20 1B 94 02 25 06 16 9F 5C 20 12 9F 5C 78 25 07 0C 9F 5C
             5C 20 07 9F 5C 5C 5C 1D 80 91 9F 20 13 9F 5C 20 0F 9F 5C 5C 1C 0A
             94 02 95 03 70 08 88 09 80 C1 9F 20 0E 9F 5C 20 0A 94 02 95 03 70
             08 88 09 80 C8 9F 20 0E 9F 5B 20 0A 9F 5C 20 06 9F 5C 5C 1D 80 C0
             9F 20 09 9F 5B 20 05 9F 5C 21 80 D2 9F 20 14 9F 5C 20 10 9F 5C 5C
             1C 0B 94 02 68 01 00 70 0B 88 09 80 C3 9F 20 0F 9F 5C 20 0B 94 02
             68 01 00 70 0B 88 09 80 C6 9F 21 80 D9 93 02 80 E1 AE 6F 0E 88 09
             16 AE 6F 0F 88 09 10 AE 6F 10 88 09 0A AE 68 01 00 70 0B 89 09 80
             CB 9F 19 04 95 02 94 00 95 01 DC AE 68 05 00 94 03 6C FE EE 00 5D
             7A 00 7A AF 06 06 00 7A A0 5C 78 6C FE DE 00 5D 5D 5D 19 07 95 02
             94 00 DE DF AE 00 7A AF 06 06 00 7A A2 5C 78 6C FE C4 00 5D 5D 7A
             00 5D 5D 19 06 E4 68 01 00 94 04 6C FE B2 68 02 00 A2 5C 78 6C FE
             A9 00 5D 5D 1B 80 75 95 02 68 01 00 CF 1B 80 41 68 00 00 E4 68 02
             00 94 05 6C FE 8E 68 03 00 A3 5C 78 6C FE 85 00 5D 5D 7A 29 02 06
             FE 7C 95 02 68 01 00 CF 1B 1B 94 02 E4 AD AE 06 04 00 7A A3 5C 78
             6C FE 65 00 5D 5D 5D 19 05 95 02 68 01 00 CF 14 94 05 94 03 00 5D
             5D 7A 9F 5C 7A 29 02 07 FE 48 94 02 AD 6D 0C 01 95 04 30 0D 1B 0E
             00 19 04 D6 19 04 AE 24 11 79 DA AF 00 5D 5D 19 04)
       (|COMMON-LISP|::|QUOTE| |qi|::|let| |COMMON-LISP|::|LET| |qi|::|/.|
        |COMMON-LISP|::|FUNCTION| |COMMON-LISP|::|LAMBDA| |qi|::|input+|
        |qi|::|$$| |qi|::|partial_application?| |qi|::|wrapper| |qi|::|apply|
        |qi|::|element?|
        #Y(|qi|::|lisp_code-1|
           #18Y(00 00 00 00 01 00 00 00 26 02 69 00 01 AE 30 01 19 02)
           (|COMMON-LISP|::|NIL| |qi|::|lisp_code|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
           (|qi|::|Z|) |COMMON-LISP|::|NIL| 1)
        |qi|::|map| |qi|::|number?| |qi|::|string?| |qi|::|character?|
        |qi|::|*qi-failure-object*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V72| |qi|::|V73|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1864 1869 (DEFUN partial_application? (V5853 V5854) ...)-138|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|partial_application?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|partial_application?|
       #68Y(00 00 00 00 02 00 00 00 26 03 AE 6F 00 AC 24 01 1A AC 24 06 2C CC
            14 AD 33 01 1E B0 AD B1 6F 04 2D 03 05 1B 10 C6 19 05 CB 19 05 AF
            6F 02 AC 6F 03 24 01 67 CB F8 AC 24 01 6B AC 24 06 6A CC 1B 55 CB
            19 04)
       (|qi|::|symbol?| |qi|::|true| |qi|::|arityf| |qi|::|number?|
        |qi|::|length| |qi|::|check_arityf| |qi|::|false|
        "~S is not a boolean~%")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5853| |qi|::|V5854|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1871 1876 (DEFUN check_arityf (V5861 V5862 V5863) ...)-139|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|check_arityf| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|check_arityf|
       #67Y(00 00 00 00 03 00 00 00 26 04 AE AE 70 00 88 01 0A AD AF 70 03 88
            01 06 CD 19 04 C7 19 04 38 02 72 8F 00 10 04 B3 B0 31 90 DF B0 38
            02 31 95 B1 B0 31 90 E0 B0 38 02 31 95 11 AC 81 90 00 2F 07 C7 19
            04)
       (|qi|::|qi_=| |qi|::|wrapper| |qi|::|false| |qi|::|qi_>|
        |SYSTEM|::|*FORMAT-CS*| " may not like " " arguments.\n" |qi|::|warn|
        |qi|::|true|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5861| |qi|::|V5862| |qi|::|V5863|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1878 1885 (DEFUN apply (V5864 V5865) ...)-140|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|apply| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|apply|
       #88Y(00 00 00 00 02 00 00 00 26 03 AE AE 00 7A 70 00 AC 24 01 0A AC 24
            02 14 C9 14 AD 33 01 1E C6 1B 19 C6 16 01 1B 14 C9 1B 70 9F 1B 1E
            AF 6F 03 AC 24 01 6E AC 25 02 6F C7 16 01 F8 88 05 6B AE AE 00 7A
            70 06 89 05 09 AE 2F 07 14 AE 36 01 19 03 E2 AF AF 2D 03 09 19 03)
       (|qi|::|full_application?| |qi|::|true| |qi|::|false| |qi|::|closure?|
        "~S is not a boolean~%" |qi|::|wrapper| |qi|::|partial_application?|
        |qi|::|make-closure| "Odd application; ~A to ~A~%" |qi|::|error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5864| |qi|::|V5865|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1887 1887 (DEFUN closure? (X) ...)-141|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|closure?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|closure?|
       #19Y(00 00 00 00 01 00 00 00 26 02 AD 72 38 6B 00 30 01 19 02)
       (|qi|::|*closures*| |qi|::|element?|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|X|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1889 1889 (DEFUN make-closure (V5866) ...)-142|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|make-closure| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|make-closure|
       #22Y(00 00 00 00 01 00 00 00 26 02 AD AE 6F 00 63 6E 03 01 31 63 19 02)
       (|qi|::|arityf| |qi|::|make_closure*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5866|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1891 1897 (DEFUN make_closure* (V22597 V22598 V22599) ...)-143|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|make_closure*| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|make_closure*|
       #44Y(00 00 00 00 03 00 00 00 26 04 AE 24 00 11 DE 6F 02 AC B1 97 05 AF
            A3 7A 28 70 14 30 03 19 05 DB 6F 02 AC B1 AE A2 7A 32 63 5D 1B 6E)
       (1. "X" |qi|::|gensym| |qi|::|/@| "X")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V22597| |qi|::|V22598| |qi|::|V22599|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1899 1899 (DEFMACRO /. (X Body) ...)-144|
   #23Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC DD 72 4C 32 9C C5 19 01)
   (|qi|::|/.| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|/.|
       #43Y(00 00 00 00 02 00 00 00 26 03 AE DA DA 63 2D 04 01 1D 13 9F 5C 78
            A0 5C 5C 78 DD DE AF 7B 01 AF 7B 03 61 02 19 05 AE 2F 02 19 03)
       (3. |SYSTEM|::|LIST-LENGTH-IN-BOUNDS-P| |SYSTEM|::|MACRO-CALL-ERROR|
        |COMMON-LISP|::|FUNCTION| |COMMON-LISP|::|LAMBDA|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|SYSTEM|::|<MACRO-FORM>| |SYSTEM|::|<ENV-ARG>|) |COMMON-LISP|::|NIL| 1)
    (|qi|::|X| |qi|::|Body|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1901 1901 (DEFUN /@ (X Body) ...)-145|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|/@| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|/@|
       #22Y(00 00 00 00 02 00 00 00 26 03 DA DB B0 7B 01 B0 7B 03 61 02 19 03)
       (|COMMON-LISP|::|FUNCTION| |COMMON-LISP|::|LAMBDA|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|X| |qi|::|Body|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1903 1909 (DEFUN full_application? (V5872 V5873) ...)-146|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|full_application?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|full_application?|
       #97Y(00 00 00 00 02 00 00 00 26 03 AE 6F 00 AC 24 01 1F AC 24 05 80 48
            CC 14 AD 33 01 1E C6 1B 30 C6 16 01 1B 2B CC 1B 70 CC 1B 6D C6 19
            05 CA 19 05 AF 6F 02 AC B0 6F 03 70 04 AC 24 01 5F AC 25 05 66 AD
            6F 06 AC 24 01 57 AC 25 05 58 CA 16 01 16 01 F8 AC 24 01 54 AC 24
            05 53 CC 1B FF B9 CA 19 04)
       (|qi|::|symbol?| |qi|::|true| |qi|::|arityf| |qi|::|length| |qi|::|qi_=|
        |qi|::|false| |qi|::|empty?| "~S is not a boolean~%")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5872| |qi|::|V5873|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1911 1916 (DEFUN map (V5879 V5880) ...)-147|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|map| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|map|
       #41Y(00 00 00 00 02 00 00 00 26 03 92 01 13 00 19 03 AE 94 02 70 00 AF
            95 03 28 03 5D 19 03 93 01 6D 9E 21 6D DB AE 30 02 19 03)
       (|qi|::|apply| "map requires a list; not ~S" |qi|::|error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5879| |qi|::|V5880|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1918 1918 (DEFUN arityf (FUNC) ...)-148|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|arityf| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|arityf|
       #18Y(00 00 00 00 01 00 00 00 26 02 AD 6B 00 63 31 6E 19 02)
       (|qi|::|*arity*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|FUNC|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1920 1921 (DEFVAR *arity* (MAKE-HASH-TABLE :SIZE 300 ...))-149|
   #30Y(00 00 00 00 00 00 00 00 20 01 DA 31 62 DB 8C 57 0A DB 38 06 DC DD DE 71
        6D 31 5A C6 19 01)
   ((|COMMON-LISP|::|SPECIAL| |qi|::|*arity*|) |qi|::|*arity*| 300. 2. 0.8f0)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1923 1939 (DEFUN initialise_arity_table NIL ...)-150|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|initialise_arity_table| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|initialise_arity_table|
       #15Y(00 00 00 00 00 00 00 00 26 01 DA 2F 01 19 01)
       ((|qi|::|and| 2. |qi|::|append| 2. |qi|::|apply| 2. |qi|::|atp-credits|
         1. |qi|::|atp-prompt| 1. |qi|::|back| 2. |qi|::|boolean?| 1.
         |qi|::|cd| 1. |qi|::|character?| 1. |qi|::|compile| 2.
         |qi|::|complex?| 1. |qi|::|concat| 2. |qi|::|congruent?| 2.
         |qi|::|cons?| 1. |qi|::|debug| 1. |qi|::|destroy| 1.
         |qi|::|delete-file| 1. |qi|::|difference| 2. |qi|::|display-mode| 1.
         |qi|::|dump-proof| 1. |qi|::|element?| 2. |qi|::|empty?| 1.
         |qi|::|eval| 1. |qi|::|explode| 1. |qi|::|fail-if| 2. |qi|::|fix| 2.
         |qi|::|float?| 1. |qi|::|from-goals| 1. |qi|::|fst| 1. |qi|::|fst-ass|
         1. |qi|::|fst-conc| 1. |qi|::|fst-goal| 1. |qi|::|gensym| 1.
         |qi|::|get-array| 3. |qi|::|get-lambda| 1. |qi|::|get-prop| 3.
         |qi|::|get-rule| 2. |qi|::|qi_>| 2. |qi|::|qi_>=| 2. |qi|::|qi_=| 2.
         |qi|::|head| 1. |qi|::|if-with-checking| 1.
         |qi|::|if-without-checking| 1. |qi|::|integer?| 1. |qi|::|inferences|
         1. |qi|::|length| 1. |qi|::|loadurl| 1. |qi|::|qi_<| 2. |qi|::|qi_<=|
         2. |qi|::|macroexpand| 1. |qi|::|make-array| 1. |qi|::|map| 2.
         |qi|::|maxinferences| 1. |qi|::|new-assoc-type| 2. |qi|::|not| 1.
         |qi|::|notes-in| 1. |qi|::|nth| 2. |qi|::|number?| 1.
         |qi|::|occurs-check| 1. |qi|::|occurrences| 2. |qi|::|or| 2.
         |qi|::|prf| 1. |qi|::|print| 1. |qi|::|profile| 1.
         |qi|::|profile-results| 1. |qi|::|prooftool| 1. |qi|::|provable?| 2.
         |qi|::|put-array| 3. |qi|::|put-prop| 3. |qi|::|random| 1.
         |qi|::|read-char| 1. |qi|::|read-file-as-charlist| 1.
         |qi|::|read-file| 1. |qi|::|read-chars-as-stringlist| 2.
         |qi|::|rational?| 1. |qi|::|real?| 1. |qi|::|refine| 4. |qi|::|remove|
         2. |qi|::|reverse| 1. |qi|::|rotate| 3. |qi|::|round| 1. |qi|::|snd|
         1. |qi|::|solved?| 1. |qi|::|specialise| 1. |qi|::|spy| 1.
         |qi|::|sqrt| 1. |qi|::|step| 1. |qi|::|string?| 1.
         |qi|::|strong-warning| 1. |qi|::|subst| 3. |qi|::|swap| 3.
         |qi|::|symbol?| 1. |qi|::|system| 1. |qi|::|tail| 1. |qi|::|tc| 1.
         |qi|::|theory-size| 1. |qi|::|thin| 2. |qi|::|thm-intro| 1.
         |qi|::|time| 1. |qi|::|time-proof| 3. |qi|::|to-goals| 2.
         |qi|::|track| 1. |qi|::|tuple| 2. |qi|::|turbo| 1. |qi|::|unprofile|
         1. |qi|::|undebug| 1. |qi|::|union| 2. |qi|::|unprf| 1.
         |qi|::|untrack| 1. |qi|::|unspecialise| 1. |qi|::|value| 1.
         |qi|::|variable?| 1. |qi|::|version| 1. |qi|::|warn| 1.
         |qi|::|write-to-file| 2. |qi|::|y-or-n?| 1. |COMMON-LISP|::|+| 2.
         |COMMON-LISP|::|*| 2. |COMMON-LISP|::|/| 2. |COMMON-LISP|::|-| 2.
         |qi|::|==| 2. |qi|::|@p| 2. |qi|::|preclude| 1. |qi|::|include| 1.
         |qi|::|preclude-all-but| 1. |qi|::|include-all-but| 1.)
        |qi|::|store_arities|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1941 1941 (DEFUN new-assoc-type (X Y) ...)-151|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|new-assoc-type| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|new-assoc-type|
       #25Y(00 00 00 00 02 00 00 00 26 03 AE AE 7B 02 6B 00 38 03 31 C5 0F 00
            C6 19 03)
       (|qi|::|*assoctypes*| |qi|::|associated|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|X| |qi|::|Y|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1943 1949 (DEFUN store_arities (V5883) ...)-152|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|store_arities| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|store_arities|
       #45Y(00 00 00 00 01 00 00 00 26 02 92 01 14 00 19 02 95 01 94 02 94 01
            30 00 95 00 29 01 04 00 93 01 6C 9E 20 04 9E 5C 21 68 DB 2F 02 19
            02)
       (|qi|::|store_arity| |qi|::|store_arities| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5883|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1951 1955 (DEFUN store_arity (FUNC N) ...)-153|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|store_arity| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|store_arity|
       #62Y(00 00 00 00 02 00 00 00 26 03 AE 6F 00 AC 8F 1A 24 AC AF 90 01 2F
            1E 38 02 72 8F 00 10 01 DC B0 38 02 31 95 B3 B0 31 90 DD B0 38 02
            31 95 11 AC 81 90 00 2F 04 6B 05 B0 AD B1 31 6F 19 05)
       (|qi|::|arityf| |SYSTEM|::|*FORMAT-CS*| "Changing the arity of "
        " may cause errors\n" |qi|::|warn| |qi|::|*arity*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|FUNC| |qi|::|N|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1957 1957 (DEFMACRO do (&REST X) ...)-154|
   #23Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC DD 72 4C 32 9C C5 19 01)
   (|qi|::|do| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|do| #17Y(00 00 00 00 02 00 00 00 26 03 95 02 DA 9E 5D 19 04)
       (|COMMON-LISP|::|PROGN|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|SYSTEM|::|<MACRO-FORM>| |SYSTEM|::|<ENV-ARG>|) |COMMON-LISP|::|NIL| 1)
    (|COMMON-LISP|::|&REST| |qi|::|X|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1959 1959 (initialise_arity_table)-155|
   #14Y(00 00 00 00 00 00 00 00 20 01 2E 00 19 01)
   (|qi|::|initialise_arity_table|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1961 1962 (DEFVAR *sfht* (MAKE-HASH-TABLE :SIZE 300 ...))-156|
   #30Y(00 00 00 00 00 00 00 00 20 01 DA 31 62 DB 8C 57 0A DB 38 06 DC DD DE 71
        6D 31 5A C6 19 01)
   ((|COMMON-LISP|::|SPECIAL| |qi|::|*sfht*|) |qi|::|*sfht*| 300. 2. 0.8f0)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|1964 2040 (DEFUN setup-base-types NIL ...)-157|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|setup-base-types| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|setup-base-types|
       #15Y(00 00 00 00 00 00 00 00 26 01 DA 2F 01 19 01)
       ((|qi|::|and|
         (|qi|::|boolean| |qi|::|-->|
          (|qi|::|boolean| |qi|::|-->| |qi|::|boolean|))
         |qi|::|append|
         ((|qi|::|list| |qi|::|A|) |qi|::|-->|
          ((|qi|::|list| |qi|::|A|) |qi|::|-->| (|qi|::|list| |qi|::|A|)))
         |qi|::|apply|
         ((|qi|::|A| |qi|::|-->| |qi|::|B|) |qi|::|-->|
          (|qi|::|A| |qi|::|-->| |qi|::|B|))
         |qi|::|assoc|
         (|qi|::|A| |qi|::|-->|
          ((|qi|::|list| (|qi|::|list| |qi|::|A|)) |qi|::|-->|
           (|qi|::|list| |qi|::|A|)))
         |qi|::|atp-credits| (|qi|::|string| |qi|::|-->| |qi|::|string|)
         |qi|::|atp-prompt| (|qi|::|string| |qi|::|-->| |qi|::|string|)
         |qi|::|boolean?| (|qi|::|A| |qi|::|-->| |qi|::|boolean|) |qi|::|cd|
         (|qi|::|string| |qi|::|-->| |qi|::|string|) |qi|::|character?|
         (|qi|::|A| |qi|::|-->| |qi|::|boolean|) |qi|::|collect|
         (|qi|::|symbol| |qi|::|-->|
          (|qi|::|number| |qi|::|-->|
           ((|qi|::|list| |qi|::|parameter|) |qi|::|-->|
            (|qi|::|goals| |qi|::|-->| (|qi|::|list| |qi|::|goals|)))))
         |qi|::|complex?| (|qi|::|A| |qi|::|-->| |qi|::|boolean|)
         |qi|::|concat|
         (|qi|::|symbol| |qi|::|-->|
          (|qi|::|symbol| |qi|::|-->| |qi|::|symbol|))
         |qi|::|congruent?|
         (|qi|::|A| |qi|::|-->| (|qi|::|A| |qi|::|-->| |qi|::|boolean|))
         |qi|::|cons?| (|qi|::|A| |qi|::|-->| |qi|::|boolean|) |qi|::|debug|
         (|qi|::|A| |qi|::|-->| |qi|::|string|) |qi|::|delete-file|
         (|qi|::|string| |qi|::|-->| |qi|::|string|) |qi|::|difference|
         ((|qi|::|list| |qi|::|A|) |qi|::|-->|
          ((|qi|::|list| |qi|::|A|) |qi|::|-->| (|qi|::|list| |qi|::|A|)))
         |qi|::|display-mode| (|qi|::|symbol| |qi|::|-->| |qi|::|symbol|)
         |qi|::|dump-proof| (|qi|::|string| |qi|::|-->| |qi|::|string|)
         |qi|::|element?|
         (|qi|::|A| |qi|::|-->|
          ((|qi|::|list| |qi|::|A|) |qi|::|-->| |qi|::|boolean|))
         |qi|::|empty?| (|qi|::|A| |qi|::|-->| |qi|::|boolean|) |qi|::|explode|
         (|qi|::|A| |qi|::|-->| (|qi|::|list| |qi|::|character|))
         |qi|::|fail-if|
         ((|qi|::|character| |qi|::|-->| |qi|::|boolean|) |qi|::|-->|
          (|qi|::|character| |qi|::|-->| |qi|::|character|))
         |qi|::|fix|
         ((|qi|::|A| |qi|::|-->| |qi|::|A|) |qi|::|-->|
          (|qi|::|A| |qi|::|-->| |qi|::|A|))
         |qi|::|float?| (|qi|::|A| |qi|::|-->| |qi|::|boolean|)
         |qi|::|from-goals|
         (|qi|::|goals| |qi|::|-->|
          ((|qi|::|list|
            ((|qi|::|list| |qi|::|wff|) |COMMON-LISP|::|*| |qi|::|wff|))
           |COMMON-LISP|::|*| (|qi|::|list| |qi|::|note|)))
         |qi|::|fst|
         ((|qi|::|A| |COMMON-LISP|::|*| |qi|::|B|) |qi|::|-->| |qi|::|A|)
         |qi|::|fst-goal|
         (|qi|::|goals| |qi|::|-->|
          ((|qi|::|list| |qi|::|wff|) |COMMON-LISP|::|*| |qi|::|wff|))
         |qi|::|fst-conc| (|qi|::|goals| |qi|::|-->| |qi|::|wff|)
         |qi|::|fst-ass| (|qi|::|goals| |qi|::|-->| (|qi|::|list| |qi|::|wff|))
         |qi|::|gensym| (|qi|::|string| |qi|::|-->| |qi|::|symbol|)
         |qi|::|get-array|
         ((|qi|::|array| |qi|::|A|) |qi|::|-->|
          ((|qi|::|list| |qi|::|number|) |qi|::|-->|
           (|qi|::|A| |qi|::|-->| |qi|::|A|)))
         |qi|::|get-lambda|
         ((|qi|::|A| |qi|::|-->| |qi|::|B|) |qi|::|-->| |qi|::|unit|)
         |qi|::|get-rule|
         (|qi|::|symbol| |qi|::|-->|
          (|qi|::|number| |qi|::|-->|
           (|qi|::|goals| |qi|::|-->| |qi|::|goals|)))
         |qi|::|head| ((|qi|::|list| |qi|::|A|) |qi|::|-->| |qi|::|A|)
         |qi|::|if-with-checking| (|qi|::|string| |qi|::|-->| |qi|::|symbol|)
         |qi|::|if-without-checking|
         (|qi|::|string| |qi|::|-->| |qi|::|symbol|) |qi|::|inferences|
         (|qi|::|A| |qi|::|-->| |qi|::|number|) |qi|::|integer?|
         (|qi|::|A| |qi|::|-->| |qi|::|boolean|) |qi|::|length|
         ((|qi|::|list| |qi|::|A|) |qi|::|-->| |qi|::|number|) |qi|::|load|
         (|qi|::|string| |qi|::|-->| |qi|::|symbol|) |qi|::|make-array|
         ((|qi|::|list| |qi|::|number|) |qi|::|-->| (|qi|::|array| |qi|::|A|))
         |qi|::|maxinferences| (|qi|::|number| |qi|::|-->| |qi|::|number|)
         |qi|::|map|
         ((|qi|::|A| |qi|::|-->| |qi|::|B|) |qi|::|-->|
          ((|qi|::|list| |qi|::|A|) |qi|::|-->| (|qi|::|list| |qi|::|B|)))
         |qi|::|not| (|qi|::|boolean| |qi|::|-->| |qi|::|boolean|)
         |qi|::|new-assoc-type|
         ((|qi|::|A| |qi|::|-->| |qi|::|boolean|) |qi|::|-->|
          (|qi|::|symbol| |qi|::|-->| |qi|::|symbol|))
         |qi|::|notes-in|
         (|qi|::|goals| |qi|::|-->| (|qi|::|list| |qi|::|note|)) |qi|::|nth|
         (|qi|::|number| |qi|::|-->|
          ((|qi|::|list| |qi|::|A|) |qi|::|-->| |qi|::|A|))
         |qi|::|number?| (|qi|::|A| |qi|::|-->| |qi|::|boolean|)
         |qi|::|occurs-check| (|qi|::|symbol| |qi|::|-->| |qi|::|boolean|)
         |qi|::|occurrences|
         (|qi|::|A| |qi|::|-->| (|qi|::|B| |qi|::|-->| |qi|::|number|))
         |qi|::|or|
         (|qi|::|boolean| |qi|::|-->|
          (|qi|::|boolean| |qi|::|-->| |qi|::|boolean|))
         |qi|::|prf|
         ((|qi|::|A| |qi|::|-->| |qi|::|B|) |qi|::|-->|
          (|qi|::|A| |qi|::|-->| |qi|::|B|))
         |qi|::|print| (|qi|::|A| |qi|::|-->| |qi|::|A|) |qi|::|profile|
         ((|qi|::|A| |qi|::|-->| |qi|::|B|) |qi|::|-->|
          (|qi|::|A| |qi|::|-->| |qi|::|B|))
         |qi|::|profile-results| (|qi|::|A| |qi|::|-->| |qi|::|symbol|)
         |qi|::|prooftool| (|qi|::|symbol| |qi|::|-->| |qi|::|symbol|)
         |qi|::|provable?|
         ((|qi|::|goals| |qi|::|-->| |qi|::|goals|) |qi|::|-->|
          ((|qi|::|list|
            ((|qi|::|list| |qi|::|wff|) |COMMON-LISP|::|*| |qi|::|wff|))
           |qi|::|-->| |qi|::|boolean|))
         |qi|::|put-array|
         ((|qi|::|array| |qi|::|A|) |qi|::|-->|
          ((|qi|::|list| |qi|::|number|) |qi|::|-->|
           (|qi|::|A| |qi|::|-->| |qi|::|A|)))
         |qi|::|random| (|qi|::|number| |qi|::|-->| |qi|::|number|)
         |qi|::|rational?| (|qi|::|A| |qi|::|-->| |qi|::|boolean|)
         |qi|::|read-char| (|qi|::|A| |qi|::|-->| |qi|::|character|)
         |qi|::|read-file|
         (|qi|::|string| |qi|::|-->| (|qi|::|list| |qi|::|unit|))
         |qi|::|read-file-as-charlist|
         (|qi|::|string| |qi|::|-->| (|qi|::|list| |qi|::|character|))
         |qi|::|read-chars-as-stringlist|
         ((|qi|::|list| |qi|::|character|) |qi|::|-->|
          ((|qi|::|character| |qi|::|-->| |qi|::|boolean|) |qi|::|-->|
           (|qi|::|list| |qi|::|string|)))
         |qi|::|rational?| (|qi|::|A| |qi|::|-->| |qi|::|boolean|)
         |qi|::|real?| (|qi|::|A| |qi|::|-->| |qi|::|boolean|) |qi|::|refine|
         (|qi|::|symbol| |qi|::|-->|
          (|qi|::|number| |qi|::|-->|
           ((|qi|::|list| |qi|::|parameter|) |qi|::|-->|
            (|qi|::|goals| |qi|::|-->| |qi|::|goals|))))
         |qi|::|remove|
         (|qi|::|A| |qi|::|-->|
          ((|qi|::|list| |qi|::|A|) |qi|::|-->| (|qi|::|list| |qi|::|A|)))
         |qi|::|reverse|
         ((|qi|::|list| |qi|::|A|) |qi|::|-->| (|qi|::|list| |qi|::|A|))
         |qi|::|rotate|
         (|qi|::|number| |qi|::|-->|
          (|qi|::|number| |qi|::|-->|
           (|qi|::|goals| |qi|::|-->| |qi|::|goals|)))
         |qi|::|round| (|qi|::|number| |qi|::|-->| |qi|::|number|) |qi|::|snd|
         ((|qi|::|A| |COMMON-LISP|::|*| |qi|::|B|) |qi|::|-->| |qi|::|B|)
         |qi|::|solved?| (|qi|::|goals| |qi|::|-->| |qi|::|boolean|)
         |qi|::|specialise| (|qi|::|symbol| |qi|::|-->| |qi|::|symbol|)
         |qi|::|sqrt| (|qi|::|number| |qi|::|-->| |qi|::|number|) |qi|::|spy|
         (|qi|::|symbol| |qi|::|-->| |qi|::|boolean|) |qi|::|step|
         (|qi|::|symbol| |qi|::|-->| |qi|::|boolean|) |qi|::|string?|
         (|qi|::|A| |qi|::|-->| |qi|::|boolean|) |qi|::|swap|
         (|qi|::|number| |qi|::|-->|
          (|qi|::|number| |qi|::|-->|
           (|qi|::|goals| |qi|::|-->| |qi|::|goals|)))
         |qi|::|strong-warning| (|qi|::|symbol| |qi|::|-->| |qi|::|boolean|)
         |qi|::|symbol?| (|qi|::|A| |qi|::|-->| |qi|::|boolean|) |qi|::|tail|
         ((|qi|::|list| |qi|::|A|) |qi|::|-->| (|qi|::|list| |qi|::|A|))
         |qi|::|tc| (|qi|::|symbol| |qi|::|-->| |qi|::|boolean|) |qi|::|turbo|
         (|qi|::|symbol| |qi|::|-->| |qi|::|boolean|) |qi|::|system|
         (|qi|::|string| |qi|::|-->| |qi|::|string|) |qi|::|theory-size|
         (|qi|::|symbol| |qi|::|-->| |qi|::|number|) |qi|::|thin|
         (|qi|::|number| |qi|::|-->| (|qi|::|goals| |qi|::|-->| |qi|::|goals|))
         |qi|::|thm-intro| (|qi|::|symbol| |qi|::|-->| |qi|::|symbol|)
         |qi|::|time| (|qi|::|A| |qi|::|-->| |qi|::|A|) |qi|::|time-proof|
         ((|qi|::|goals| |qi|::|-->| |qi|::|goals|) |qi|::|-->|
          ((|qi|::|list| |qi|::|wff|) |qi|::|-->|
           (|qi|::|wff| |qi|::|-->| |qi|::|boolean|)))
         |qi|::|to-goals|
         ((|qi|::|list|
           ((|qi|::|list| |qi|::|wff|) |COMMON-LISP|::|*| |qi|::|wff|))
          |qi|::|-->| ((|qi|::|list| |qi|::|note|) |qi|::|-->| |qi|::|goals|))
         |qi|::|track|
         ((|qi|::|A| |qi|::|-->| |qi|::|B|) |qi|::|-->|
          (|qi|::|A| |qi|::|-->| |qi|::|B|))
         |qi|::|tuple?| (|qi|::|A| |qi|::|-->| |qi|::|boolean|) |qi|::|undebug|
         (|qi|::|A| |qi|::|-->| |qi|::|string|) |qi|::|unprofile|
         ((|qi|::|A| |qi|::|-->| |qi|::|B|) |qi|::|-->|
          (|qi|::|A| |qi|::|-->| |qi|::|B|))
         |qi|::|untrack|
         ((|qi|::|A| |qi|::|-->| |qi|::|B|) |qi|::|-->|
          (|qi|::|A| |qi|::|-->| |qi|::|B|))
         |qi|::|unprf|
         ((|qi|::|A| |qi|::|-->| |qi|::|B|) |qi|::|-->|
          (|qi|::|A| |qi|::|-->| |qi|::|B|))
         |qi|::|union|
         ((|qi|::|list| |qi|::|A|) |qi|::|-->|
          ((|qi|::|list| |qi|::|A|) |qi|::|-->| (|qi|::|list| |qi|::|A|)))
         |qi|::|unspecialise| (|qi|::|symbol| |qi|::|-->| |qi|::|symbol|)
         |qi|::|variable?| (|qi|::|A| |qi|::|-->| |qi|::|boolean|)
         |qi|::|version| (|qi|::|string| |qi|::|-->| |qi|::|string|)
         |qi|::|warn| (|qi|::|string| |qi|::|-->| |qi|::|string|)
         |qi|::|write-to-file|
         (|qi|::|string| |qi|::|-->| (|qi|::|A| |qi|::|-->| |qi|::|string|))
         |qi|::|y-or-n?| (|qi|::|string| |qi|::|-->| |qi|::|boolean|)
         |qi|::|qi_>|
         (|qi|::|number| |qi|::|-->|
          (|qi|::|number| |qi|::|-->| |qi|::|boolean|))
         |qi|::|qi_<|
         (|qi|::|number| |qi|::|-->|
          (|qi|::|number| |qi|::|-->| |qi|::|boolean|))
         |qi|::|qi_>=|
         (|qi|::|number| |qi|::|-->|
          (|qi|::|number| |qi|::|-->| |qi|::|boolean|))
         |qi|::|qi_<=|
         (|qi|::|number| |qi|::|-->|
          (|qi|::|number| |qi|::|-->| |qi|::|boolean|))
         |COMMON-LISP|::|+|
         (|qi|::|number| |qi|::|-->|
          (|qi|::|number| |qi|::|-->| |qi|::|number|))
         |COMMON-LISP|::|*|
         (|qi|::|number| |qi|::|-->|
          (|qi|::|number| |qi|::|-->| |qi|::|number|))
         |COMMON-LISP|::|-|
         (|qi|::|number| |qi|::|-->|
          (|qi|::|number| |qi|::|-->| |qi|::|number|))
         |COMMON-LISP|::|/|
         (|qi|::|number| |qi|::|-->|
          (|qi|::|number| |qi|::|-->| |qi|::|number|))
         |qi|::|==|
         (|qi|::|A| |qi|::|-->| (|qi|::|B| |qi|::|-->| |qi|::|boolean|))
         |qi|::|preclude|
         ((|qi|::|list| |qi|::|symbol|) |qi|::|-->|
          (|qi|::|list| |qi|::|symbol|))
         |qi|::|include|
         ((|qi|::|list| |qi|::|symbol|) |qi|::|-->|
          (|qi|::|list| |qi|::|symbol|))
         |qi|::|preclude-all-but|
         ((|qi|::|list| |qi|::|symbol|) |qi|::|-->|
          (|qi|::|list| |qi|::|symbol|))
         |qi|::|include-all-but|
         ((|qi|::|list| |qi|::|symbol|) |qi|::|-->|
          (|qi|::|list| |qi|::|symbol|)))
        |qi|::|setup-sfht|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2042 2044 (DEFUN setup-sfht (L) ...)-158|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|setup-sfht| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|setup-sfht|
       #33Y(00 00 00 00 01 00 00 00 26 02 92 01 06 00 19 02 93 01 7A 94 01 9F
            5C 78 30 00 9E 5C 79 29 01 03 6F)
       (|qi|::|add-to-type-discipline|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|L|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2046 2047 (DEFMACRO newfuntype (F Type) ...)-159|
   #23Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC DD 72 4C 32 9C C5 19 01)
   (|qi|::|newfuntype| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|newfuntype|
       #44Y(00 00 00 00 02 00 00 00 26 03 AE DA DA 63 2D 04 01 1D 14 9F 5C 78
            A0 5C 5C 78 DD DE AF 7B 02 DE AF 7B 02 61 03 19 05 AE 2F 02 19 03)
       (3. |SYSTEM|::|LIST-LENGTH-IN-BOUNDS-P| |SYSTEM|::|MACRO-CALL-ERROR|
        |qi|::|newfuntype*| |COMMON-LISP|::|QUOTE|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|SYSTEM|::|<MACRO-FORM>| |SYSTEM|::|<ENV-ARG>|) |COMMON-LISP|::|NIL| 1)
    (|qi|::|F| |qi|::|Type|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2049 2049 (DEFUN newfuntype* (F Type) ...)-160|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|newfuntype*| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|newfuntype*|
       #19Y(00 00 00 00 02 00 00 00 26 03 AE AE 6F 00 30 01 9F 19 03)
       (|qi|::|curry_type| |qi|::|add-to-type-discipline|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|F| |qi|::|Type|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2051 2057 (DEFUN record_type (FUNC TYPE) ...)-161|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|record_type| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|record_type|
       #57Y(00 00 00 00 02 00 00 00 26 03 AE 6F 00 93 00 23 AE 6F 01 AD 6F 01
            8A 02 1A 38 02 72 8F 00 10 04 B3 B0 31 90 DF B0 38 02 31 95 11 AC
            81 90 00 2F 06 19 04 AF AF 30 03 19 04)
       (|qi|::|get_type_of_func| |qi|::|normalise_type| |qi|::|variant?|
        |qi|::|add-to-type-discipline| |SYSTEM|::|*FORMAT-CS*|
        " already has a type.\n" |qi|::|warn|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|FUNC| |COMMON-LISP|::|TYPE|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2059 2061 (DEFUN warn (String) ...)-162|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|warn| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|warn|
       #32Y(00 00 00 00 01 00 00 00 26 02 6B 00 24 01 0C DD 6B 04 33 01 15 DF
            AE 30 06 19 02 AD 2F 02 19 02)
       (|qi|::|*strong-warning*| |qi|::|true| |qi|::|error|
        #Y(|qi|::|warn-1|
           #23Y(00 00 00 00 01 00 00 00 21 17 00 10 00 DB B2 38 02 31 95 A1 11
                19 03)
           (|SYSTEM|::|*FORMAT-CS*| "======> ")
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        |COMMON-LISP|::|*STANDARD-OUTPUT*| "Warning: ~A~%" |qi|::|output|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|String|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2063 2063 (SETQ *strong-warning* 'false)-163|
   #15Y(00 00 00 00 00 00 00 00 20 01 C5 0F 01 19 01)
   (|qi|::|false| |qi|::|*strong-warning*|)
   (|COMMON-LISP|::|NIL| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2065 2068 (DEFUN strong-warning (X) ...)-164|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|strong-warning| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|strong-warning|
       #30Y(00 00 00 00 01 00 00 00 26 02 AD 24 00 09 AD 25 03 08 C9 0F 02 19
            02 C6 1B 79 DF 33 00 1E)
       (|COMMON-LISP|::|+| |qi|::|true| |qi|::|*strong-warning*|
        |COMMON-LISP|::|-| |qi|::|false|
        "strong-warning expects a + or a -.~%")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|X|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2070 2077 (DEFUN variant? (NEW OLD) ...)-165|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|variant?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|variant?|
       #100Y(00 00 00 00 02 00 00 00 26 03 AE AE 8E 14 20 94 01 94 03 8E 14 1C
             94 01 6F 00 25 01 07 94 02 6F 00 24 01 16 9E 5B 20 04 9F 5B 21 25
             00 19 03 02 19 03 95 01 95 03 29 02 05 50 DC 94 02 95 03 38 03 71
             B9 DC 94 04 95 05 38 03 71 B9 29 02 05 FF B9 94 01 95 02 73 02 23
             94 03 95 04 73 02 23 29 02 05 FF A6)
       (|qi|::|variable?| |qi|::|true| |qi|::|a|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|NEW| |qi|::|OLD|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2079 2081 (DEFUN variable? (X) ...)-166|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|variable?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|variable?|
       #32Y(00 00 00 00 01 00 00 00 26 02 AD 8F 18 0C 93 01 09 AD 72 A6 DA 71
            31 8C 23 03 C7 19 02 C6 19 02)
       (0. |qi|::|true| |qi|::|false|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|X|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2083 2085 (DEFUN add-to-type-discipline (FUNC TYPE) ...)-167|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|add-to-type-discipline| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|add-to-type-discipline|
       #29Y(00 00 00 00 02 00 00 00 26 03 6B 00 63 DB 63 B1 6F 02 7B 03 70 03
            B0 AE AE 31 6F 19 05)
       (|qi|::|*sfht*| |COMMON-LISP|::|LAMBDA| |qi|::|st_code|
        |COMMON-LISP|::|COMPILE|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|FUNC| |COMMON-LISP|::|TYPE|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2087 2088 (DEFUN st_code (Type) ...)-168|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|st_code| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|st_code|
       #22Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 AC AD B0 70 01 30 02 19 03)
       (|qi|::|extract_variables| |qi|::|bld_st_code| |qi|::|st_code*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Type|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2090 2095 (DEFUN bld_st_code (Vs Type) ...)-169|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|bld_st_code| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|bld_st_code|
       #53Y(00 00 00 00 02 00 00 00 26 03 92 01 18 00 19 03 DA AF 94 03 6C 0C
            B0 95 04 6C 07 61 03 19 03 9E 19 03 93 01 68 9E 21 68 AD AF 38 03
            8C C1 70 DB AE 61 02 19 03)
       (|COMMON-LISP|::|CONS| |COMMON-LISP|::|QUOTE|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Vs| |qi|::|Type|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2097 2100 (DEFUN st_code* (Variables Type) ...)-170|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|st_code*| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|st_code*|
       #51Y(00 00 00 00 02 00 00 00 26 03 93 02 05 DA 63 B0 1B 12 9E 19 03 94
            00 AC DB DC 7B 02 7B 02 84 02 16 01 83 00 AC 8D 9F 6D 16 01 AC 80
            B1 00 AF 61 03 19 03)
       (|COMMON-LISP|::|LET| |qi|::|gensym| "A")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Variables| |qi|::|Type|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2102 2102 (setup-base-types)-171|
   #14Y(00 00 00 00 00 00 00 00 20 01 2E 00 19 01) (|qi|::|setup-base-types|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2104 2105 (DEFUN destroy (Func) ...)-172|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|destroy| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|destroy|
       #34Y(00 00 00 00 01 00 00 00 26 02 AD 6B 00 31 70 AD 6B 01 31 70 AD 6B
            02 38 07 32 69 0F 02 AD 31 5C 19 02)
       (|qi|::|*sfht*| |qi|::|*arity*| |qi|::|*userdefs*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Func|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2107 2107 (DEFVAR *Failure* '(NIL #\\Escape))-173|
   #24Y(00 00 00 00 00 00 00 00 20 01 DA 31 62 DB 8C 57 04 DB DC 31 5A C6 19
        01)
   ((|COMMON-LISP|::|SPECIAL| |qi|::|*Failure*|) |qi|::|*Failure*|
    (|COMMON-LISP|::|NIL| #\Escape))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2109 2111 (DEFUN compile (F X) ...)-174|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|compile| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|compile|
       #33Y(00 00 00 00 02 00 00 00 26 03 AE AE 63 7B 02 76 01 AC 88 00 09 9D
            5B 1C 05 9D 5C 5B 19 04 C6 19 04)
       (|qi|::|failure?| #\Escape)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|F| |qi|::|X|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2113 2114 (DEFMACRO defcc (Symbol &REST CC_stuff) ...)-175|
   #23Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC DD 72 4C 32 9C C5 19 01)
   (|qi|::|defcc| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|defcc|
       #43Y(00 00 00 00 02 00 00 00 26 03 AE DA DA 64 2D 04 01 1D 13 9F 5C 78
            A0 5C 79 DD DE AF 7B 02 DE AF 7B 02 61 03 19 05 AE 2F 02 19 03)
       (2. |SYSTEM|::|LIST-LENGTH-IN-BOUNDS-P| |SYSTEM|::|MACRO-CALL-ERROR|
        |qi|::|compile_cc| |COMMON-LISP|::|QUOTE|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|SYSTEM|::|<MACRO-FORM>| |SYSTEM|::|<ENV-ARG>|) |COMMON-LISP|::|NIL| 1)
    (|qi|::|Symbol| |COMMON-LISP|::|&REST| |qi|::|CC_stuff|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2116 2121 (DEFUN compile_cc (Symbol CC_Stuff) ...)-176|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|compile_cc| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|compile_cc|
       #33Y(00 00 00 00 02 00 00 00 26 03 DA AF DB DC DD B2 63 70 04 33 00 16
            7A 7B 04 6F 05 71 63 2F 06 19 03)
       (|COMMON-LISP|::|DEFUN| (|qi|::|Stream|) |qi|::|cases| |qi|::|cc_body|
        |qi|::|split_cc_rules| |qi|::|record_source| |COMMON-LISP|::|COMPILE|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Symbol| |qi|::|CC_Stuff|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2123 2130 (DEFUN split_cc_rules (CCstuff RevRule) ...)-177|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|split_cc_rules| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|split_cc_rules|
       #61Y(00 00 00 00 02 00 00 00 26 03 92 02 21 93 01 0A AD 72 63 63 70 00
            61 01 19 03 00 19 03 AD 72 63 63 70 00 95 03 63 28 03 5D 19 03 93
            02 5F 94 02 24 01 6A 95 02 94 03 A0 7A 29 02 05 6E)
       (|qi|::|split_cc_rule| |qi|::|;|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|CCstuff| |qi|::|RevRule|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2132 2140 (DEFUN split_cc_rule (Rule RevSyntax) ...)-178|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|split_cc_rule| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|split_cc_rule|
       #128Y(00 00 00 00 02 00 00 00 26 03 94 02 25 00 80 61 95 02 72 62 DB 90
             01 2F 0C AD 72 63 DC A1 5C 5D 14 61 02 19 03 AD 72 63 A0 5C 5B 1B
             73 38 02 72 8F AE 72 63 00 10 03 AF 1B 14 DE B2 31 94 B1 2F 05 10
             06 94 03 83 04 B5 31 8D 11 B1 2F 07 AC 8D 9F 68 16 01 E2 B1 38 02
             31 95 11 16 01 AC 81 90 00 2F 09 DA AE 72 63 6F 0A 7B 02 AE 29 02
             05 FF 99 93 02 FF B8 95 02 94 03 A0 7A 29 02 05 FF 8A)
       (:|=| 1. |COMMON-LISP|::|LIST| |SYSTEM|::|*FORMAT-CS*| #\Space
        |SYSTEM|::|STREAM-START-S-EXPRESSION|
        |COMMON-LISP|::|*PRINT-RIGHT-MARGIN*|
        |SYSTEM|::|STREAM-END-S-EXPRESSION| " has no semantics.\n" |qi|::|warn|
        |qi|::|default_semantics|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Rule| |qi|::|RevSyntax|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2142 2146 (DEFUN default_semantics (Syntax) ...)-179|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|default_semantics| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|default_semantics|
       #39Y(00 00 00 00 01 00 00 00 26 02 92 01 09 9E 19 02 C6 1B 09 93 01 77
            94 01 88 00 75 C7 14 94 02 95 03 6C 70 61 03 19 02)
       (|qi|::|grammar_symbol?| |COMMON-LISP|::|APPEND| |COMMON-LISP|::|CONS|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Syntax|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2148 2148 (DEFUN cc_body (Rule) ...)-180|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|cc_body| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|cc_body|
       #21Y(00 00 00 00 01 00 00 00 26 02 94 01 DA A0 5C 78 2D 03 01 19 02)
       (|qi|::|Stream| |qi|::|syntax|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Rule|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2150 2166 (DEFUN syntax (Syntax Stream Semantics) ...)-181|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|syntax| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|syntax|
       #110Y(00 00 00 00 03 00 00 00 26 04 93 03 24 94 03 88 03 2B 94 03 88 04
             29 94 03 88 06 2C 94 03 88 08 2F 94 03 88 0A 32 94 03 88 0C 35 E9
             94 04 33 01 1E DA DB B0 7B 02 AF 6F 02 61 03 19 04 9E 19 04 AF AF
             AF 2D 03 05 19 04 AF AF AF 2D 03 07 19 04 AF AF AF 2D 03 09 19 04
             AF AF AF 2D 03 0B 19 04 94 03 6F 0D A1 5C 7A AF AF 2D 03 0E 19 04)
       (|COMMON-LISP|::|LIST| |COMMON-LISP|::|FIRST| |qi|::|semantics|
        |qi|::|close_proc?| |qi|::|grammar_symbol?| |qi|::|recursive_descent|
        |qi|::|terminal?| |qi|::|check_stream| |qi|::|eos?| |qi|::|check_eos|
        |qi|::|jump_stream?| |qi|::|jump_stream| |qi|::|list_call?|
        |qi|::|decons| |qi|::|list_call| "~S is not legal syntax.~%")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Syntax| |qi|::|Stream| |qi|::|Semantics|) |COMMON-LISP|::|NIL|
       1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2168 2168 (DEFUN close_proc? (Fragment) ...)-182|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|close_proc?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|close_proc?| #15Y(00 00 00 00 01 00 00 00 26 02 AD C5 5A 19 02)
       (|qi|::|-end-of-list-|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|Fragment|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2170 2175 (DEFUN grammar_symbol? (Fragment) ...)-183|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|grammar_symbol?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|grammar_symbol?|
       #60Y(00 00 00 00 01 00 00 00 26 02 AD 32 18 1F 2B 38 02 72 8F 00 10 00
            B1 B0 31 90 11 AC 81 90 00 DB 72 3B 94 00 AD 38 01 31 A9 78 DC AE
            33 01 0D 1F 07 DD AD 33 01 0D 19 05 19 05 19 02)
       (|SYSTEM|::|*FORMAT-CS*| |COMMON-LISP|::|LIST| #\< #\>)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Fragment|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2177 2184 (DEFUN recursive_descent (Syntax Stream Semantics) ...)-184|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|recursive_descent| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|recursive_descent|
       #52Y(00 00 00 00 03 00 00 00 26 04 94 03 AF 7B 02 95 04 94 05 B0 6E 03
            00 DB 0E 02 7A DD 94 07 B0 7B 02 7B 01 DE DF E0 94 0B 7B 02 7B 02
            B1 B1 7B 04 61 03 19 07)
       (|qi|::|syntax| |COMMON-LISP|::|LIST| |qi|::|*Failure*|
        |COMMON-LISP|::|LET| |COMMON-LISP|::|IF| |COMMON-LISP|::|NOT|
        |qi|::|failure?|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Syntax| |qi|::|Stream| |qi|::|Semantics|) |COMMON-LISP|::|NIL|
       1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2186 2186 (DEFUN list_call? (Fragment) ...)-185|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|list_call?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|list_call?|
       #22Y(00 00 00 00 01 00 00 00 26 02 AD 32 16 1F 05 AD 2F 00 19 02 19 02)
       (|qi|::|cons_structure?|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Fragment|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2188 2195 (DEFUN cons_structure? (Fragment) ...)-186|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|cons_structure?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|cons_structure?|
       #47Y(00 00 00 00 01 00 00 00 26 02 9E 21 03 02 19 02 94 01 C5 5A 1F 17
            AD 72 62 DB 30 02 1F 0F 9E 5C 78 28 67 1F 08 9E 5C 5C 78 29 01 03
            5D 19 02)
       (|qi|::|cons| 3. |qi|::|qi_=|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Fragment|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2197 2201 (DEFUN decons (Fragment) ...)-187|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|decons| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|decons|
       #35Y(00 00 00 00 01 00 00 00 26 02 9E 20 05 94 01 24 00 03 9E 19 02 9E
            5C 78 6C 70 9F 5C 5C 78 28 6A 5D 19 02)
       (|qi|::|cons|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Fragment|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2203 2218 (DEFUN list_call (Syntax Stream Semantics) ...)-188|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|list_call| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|list_call|
       #99Y(00 00 00 00 03 00 00 00 26 04 DA 6F 01 DC 6F 01 DD DE DF B3 7B 02
            7B 02 DE E0 B4 7B 02 7B 02 7B 03 E1 E0 B3 7B 02 E2 B4 7B 02 7B 03
            E1 E3 B4 7B 02 E2 B5 7B 02 7B 03 94 08 E4 73 02 23 95 09 B1 B5 6E
            03 0B AD B3 AE 6E 03 0B E1 0E 0C 7A E7 B3 E8 B7 B5 7B 02 B7 B5 7B
            02 7B 02 B1 7B 03 AF 61 04 19 0D)
       ("HeadStream" |COMMON-LISP|::|GENTEMP| "TailStream" |COMMON-LISP|::|AND|
        |COMMON-LISP|::|CONSP| |COMMON-LISP|::|FIRST| |COMMON-LISP|::|CAAR|
        |COMMON-LISP|::|LIST| |COMMON-LISP|::|CADR| |COMMON-LISP|::|CDAR|
        (|qi|::|!| |qi|::|-end-of-list-|) |qi|::|syntax| |qi|::|*Failure*|
        |COMMON-LISP|::|IF| |COMMON-LISP|::|LET|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Syntax| |qi|::|Stream| |qi|::|Semantics|) |COMMON-LISP|::|NIL|
       1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2220 2223 (DEFUN terminal? (Fragment) ...)-189|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|terminal?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|terminal?|
       #47Y(00 00 00 00 01 00 00 00 26 02 AD 32 17 1F 1E AD 2F 00 59 1F 18 AD
            2F 01 59 1F 12 AD 2F 02 59 1F 0C AD 2F 03 59 1F 06 AD 2F 04 59 19
            02 19 02)
       (|qi|::|grammar_symbol?| |qi|::|jump_stream?| |qi|::|rest_stream?|
        |qi|::|eos?| |qi|::|close_proc?|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Fragment|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2225 2233 (DEFUN check_stream (Syntax Stream Semantics) ...)-190|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|check_stream| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|check_stream|
       #67Y(00 00 00 00 03 00 00 00 26 04 DA DB DC B1 7B 02 7B 02 DD DC DC B3
            7B 02 7B 02 DE 94 08 7B 02 7B 03 7B 03 95 04 DF E0 DC B3 7B 02 7B
            02 E1 B3 7B 02 7B 03 B0 6E 03 08 DF 0E 09 7A E4 AF AF AF 61 04 19
            07)
       (|COMMON-LISP|::|AND| |COMMON-LISP|::|CONSP| |COMMON-LISP|::|FIRST|
        |COMMON-LISP|::|EQUAL| |COMMON-LISP|::|QUOTE| |COMMON-LISP|::|LIST|
        |COMMON-LISP|::|REST| |COMMON-LISP|::|SECOND| |qi|::|syntax|
        |qi|::|*Failure*| |COMMON-LISP|::|IF|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Syntax| |qi|::|Stream| |qi|::|Semantics|) |COMMON-LISP|::|NIL|
       1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2235 2235 (DEFUN eos? (Fragment) ...)-191|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|eos?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|eos?| #15Y(00 00 00 00 01 00 00 00 26 02 AD C5 5A 19 02)
       (|qi|::|!|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|Fragment|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2237 2237 (DEFUN jump_stream? (Fragment) ...)-192|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|jump_stream?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|jump_stream?| #15Y(00 00 00 00 01 00 00 00 26 02 AD C5 5A 19 02)
       (|qi|::|-*-|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|Fragment|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2239 2245 (DEFUN check_eos (Syntax Stream Semantics) ...)-193|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|check_eos| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|check_eos|
       #49Y(00 00 00 00 03 00 00 00 26 04 DA DB B0 7B 02 7B 02 95 04 DC DD DB
            B3 7B 02 7B 02 DE B3 7B 02 7B 03 B0 6E 03 05 DC 0E 06 7A E1 AF AF
            AF 61 04 19 07)
       (|COMMON-LISP|::|NULL| |COMMON-LISP|::|FIRST| |COMMON-LISP|::|LIST|
        |COMMON-LISP|::|REST| |COMMON-LISP|::|SECOND| |qi|::|syntax|
        |qi|::|*Failure*| |COMMON-LISP|::|IF|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Syntax| |qi|::|Stream| |qi|::|Semantics|) |COMMON-LISP|::|NIL|
       1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2247 2253 (DEFUN jump_stream (Syntax Stream Semantics) ...)-194|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|jump_stream| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|jump_stream|
       #49Y(00 00 00 00 03 00 00 00 26 04 DA DB B0 7B 02 7B 02 95 04 DC DD DB
            B3 7B 02 7B 02 DE B3 7B 02 7B 03 B0 6E 03 05 DC 0E 06 7A E1 AF AF
            AF 61 04 19 07)
       (|COMMON-LISP|::|CONSP| |COMMON-LISP|::|FIRST| |COMMON-LISP|::|LIST|
        |COMMON-LISP|::|REST| |COMMON-LISP|::|SECOND| |qi|::|syntax|
        |qi|::|*Failure*| |COMMON-LISP|::|IF|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Syntax| |qi|::|Stream| |qi|::|Semantics|) |COMMON-LISP|::|NIL|
       1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2255 2272 (DEFUN semantics (Semantics) ...)-195|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|semantics| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|semantics|
       #149Y(00 00 00 00 01 00 00 00 26 02 93 01 80 84 1B 80 58 DD 9F 5C 78 A0
             5C 5C 78 6C 80 4A 7B 02 7B 01 A0 5C 78 DE A2 5C 78 7B 02 A2 5C 5C
             5C 78 6C 36 DF 38 02 71 B9 61 03 19 02 AD 8E 19 0B AD 8E 1A 07 AD
             8E 2E 03 92 01 03 9E 19 02 C9 1B 01 CE 14 AE 61 02 19 02 D0 19 02
             D2 19 02 94 01 E8 95 03 33 00 16 5D 19 02 93 01 29 AD 8F 1D 0D 94
             01 25 00 08 AD 71 A0 DB 8A 02 FF 97 AD 24 06 4A AD 88 07 FF B6 AD
             88 08 47 AD 88 0A 4A AD 88 0C 49 9E 21 49 00 19 02)
       (|qi|::|let| 4. |qi|::|qi_=| |COMMON-LISP|::|LET| |COMMON-LISP|::|QUOTE|
        |COMMON-LISP|::|EQUAL| |qi|::|Stream| |qi|::|terminal?|
        |qi|::|grammar_symbol?| |COMMON-LISP|::|SECOND| |qi|::|jump_stream?|
        (|COMMON-LISP|::|CAAR| |qi|::|Stream|) |qi|::|rest_stream?|
        (|COMMON-LISP|::|CDAR| |qi|::|Stream|) |qi|::|semantics|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Semantics|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2274 2274 (DEFUN rest_stream? (Semantics) ...)-196|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|rest_stream?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|rest_stream?| #15Y(00 00 00 00 01 00 00 00 26 02 AD C5 5A 19 02)
       (|qi|::|-s-|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|Semantics|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2276 2276 (DEFUN <e> (Stream) ...)-197|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<e>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<e>| #13Y(00 00 00 00 01 00 00 00 26 02 9E 19 02) ()
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2278 2278 (DEFUN failure? (X) ...)-198|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|failure?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|failure?|
       #17Y(00 00 00 00 01 00 00 00 26 02 9E 5C 78 C5 5A 19 02) (#\Escape)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|X|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2280 2286 (DEFMACRO cases (&REST X) ...)-199|
   #23Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC DD 72 4C 32 9C C5 19 01)
   (|qi|::|cases| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|cases|
       #40Y(00 00 00 00 02 00 00 00 26 03 95 02 93 00 16 DB DC 94 02 7B 02 7B
            01 DD DE DF A2 5C 7A CB 5D 5D 7A 61 03 19 04 C5 19 04)
       (|qi|::|*Failure*| |COMMON-LISP|::|LET| |qi|::|Y| |COMMON-LISP|::|IF|
        (|qi|::|failure?| |qi|::|Y|) |qi|::|cases| (|qi|::|Y|))
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|SYSTEM|::|<MACRO-FORM>| |SYSTEM|::|<ENV-ARG>|) |COMMON-LISP|::|NIL| 1)
    (|COMMON-LISP|::|&REST| |qi|::|X|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2288 2288 (DEFUN dump (X) ...)-200|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|dump| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|dump|
       #48Y(01 00 00 00 01 00 00 00 26 02 DA 38 02 72 8F 00 10 01 B2 B0 31 90
            DC B0 38 02 31 95 11 AC 81 90 00 61 01 13 67 00 00 01 2F 03 11 18
            01 00 19 02)
       ((|qi|::|*dump-file*|) |SYSTEM|::|*FORMAT-CS*| ".lsp" |qi|::|load|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|X|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2290 2295 (DEFUN load (File) ...)-201|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|load| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|load| #15Y(00 00 00 00 01 00 00 00 26 02 AD 2F 00 19 02)
       (|qi|::|load-help|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|File|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2297 2300 (DEFUN load-help (File) ...)-202|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|load-help| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|load-help|
       #84Y(04 00 01 00 01 00 00 00 26 02 38 01 31 D7 42 09 53 0B DA B9 6F 01
            73 00 16 2F 02 3E 54 98 03 45 38 01 31 D7 41 67 01 00 08 67 01 00
            07 67 01 00 06 67 01 00 05 67 01 00 04 67 01 00 03 67 01 00 02 67
            01 00 01 67 01 00 00 46 55 16 09 38 01 31 97 C9 19 02)
       (|qi|::|macroexpand| |qi|::|read-file| |qi|::|evaluate_file_contents|
        |SYSTEM|::|%TIME| |qi|::|loaded|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|File|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2302 2302 (DEFUN macroexpand (X) ...)-203|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|macroexpand| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|macroexpand| #13Y(00 00 00 00 01 00 00 00 26 02 9E 19 02) ()
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|X|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2304 2309 (DEFUN evaluate_file_contents (Contents) ...)-204|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|evaluate_file_contents| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|evaluate_file_contents|
       #62Y(00 00 00 00 01 00 00 00 26 02 6B 00 25 01 05 DC AE 33 00 18 AD 1B
            0F 94 00 AC 7B 01 2F 03 38 01 31 97 16 01 83 00 AC 8D 9F 6D 16 01
            6B 00 25 01 08 DE 6B 05 6B 06 33 02 15 00 0F 07 19 02)
       (|qi|::|*tc*| |qi|::|true| |qi|::|scan_for_signatures|
        |qi|::|toplevel_evaluate|
        #Y(|qi|::|evaluate_file_contents-1|
           #33Y(00 00 00 00 02 00 00 00 21 18 00 10 00 DB B3 38 02 31 95 B1 B3
                31 90 DC B3 38 02 31 95 A1 11 19 04)
           (|SYSTEM|::|*FORMAT-CS*| "typechecked in " " inferences.\n")
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        |COMMON-LISP|::|*STANDARD-OUTPUT*| |qi|::|*logical-inferences*|
        |qi|::|*tempsigs*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Contents|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2311 2311 (SETQ *tempsigs* NIL)-205|
   #15Y(00 00 00 00 00 00 00 00 20 01 00 0F 00 19 01) (|qi|::|*tempsigs*|)
   (|COMMON-LISP|::|NIL| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2313 2316 (DEFUN scan_for_signatures (Expr) ...)-206|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|scan_for_signatures| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|scan_for_signatures|
       #43Y(00 00 00 00 01 00 00 00 26 02 AD 2F 00 1F 1A 9E 5C 78 9F 5C 79 70
            01 6F 02 9F 5C 78 AD 30 03 9F 5C 78 0E 04 5D 0F 04 19 03 19 02)
       (|qi|::|definition?| |qi|::|extract_signature| |qi|::|curry_type|
        |qi|::|newfuntype*| |qi|::|*tempsigs*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Expr|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2318 2318 (DEFUN definition? (Expr) ...)-207|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|definition?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|definition?|
       #23Y(00 00 00 00 01 00 00 00 26 02 AD 32 16 1F 06 94 01 C5 5A 19 02 19
            02)
       (|qi|::|define|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|Expr|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2320 2322 (DEFUN extract_signature (Name Body) ...)-208|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|extract_signature| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|extract_signature|
       #27Y(00 00 00 00 02 00 00 00 26 03 94 01 25 00 07 AE 95 02 30 01 19 03
            DC AF 33 01 1E)
       (|qi|::|{| |qi|::|extract_signature*| "~A lacks a type.~%")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Name| |qi|::|Body|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2324 2327 (DEFUN extract_signature* (Name Body) ...)-209|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|extract_signature*| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|extract_signature*|
       #36Y(00 00 00 00 02 00 00 00 26 03 94 01 24 00 08 9E 21 08 DB AF 33 01
            1E 00 19 03 94 01 AF 95 03 28 69 5D 19 03)
       (|qi|::|}| "Unmatched { in ~A.~%")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Name| |qi|::|Body|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2329 2338 (DEFUN write-to-file (Filename Output) ...)-210|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|write-to-file| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|write-to-file|
       #103Y(03 00 01 00 02 00 00 00 26 03 38 02 72 8F 6B 00 00 10 01 AF B1 31
             90 B3 B1 31 90 11 16 01 AC 81 90 00 AC DC 38 05 C8 FB C9 FA 72 0B
             53 27 AE DF 30 06 B1 8E 19 14 B1 AF 31 8F 93 02 03 14 2F 07 3E 54
             05 00 00 00 1D 19 1B 11 B1 AF 38 02 31 95 93 02 6D 1B 68 05 00 00
             00 1D 06 14 E2 64 2D 03 07 55 16 01 15 19 03)
       (|qi|::|*qi_home_directory*| |SYSTEM|::|*FORMAT-CS*| :|OUTPUT| :|APPEND|
        :|CREATE|
        #Y(|qi|::|write-to-file-1|
           #20Y(00 00 00 00 01 00 00 00 21 17 00 10 00 B1 31 97 A1 11 19 03)
           (|SYSTEM|::|*FORMAT-CS*|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        |COMMON-LISP|::|FORMAT| |COMMON-LISP|::|CLOSE| :|ABORT|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Filename| |qi|::|Output|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2340 2345 (DEFUN delete-file (Filename) ...)-211|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|delete-file| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|delete-file|
       #70Y(00 00 00 00 01 00 00 00 26 02 38 02 72 8F 6B 00 00 10 01 AF B1 31
            90 B2 B1 31 90 11 16 01 AC 81 90 00 AC 8E 08 1B 38 02 72 8F 00 10
            01 B0 B0 31 90 DC B0 38 02 31 95 11 AC 81 90 00 2F 03 15 19 02 AC
            32 09 1B 78)
       (|qi|::|*qi_home_directory*| |SYSTEM|::|*FORMAT-CS*|
        " does not exist.\n" |qi|::|warn|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Filename|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2347 2347 (DEFUN input NIL ...)-212|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|input| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|input| #17Y(00 00 00 00 00 00 00 00 26 01 2E 00 78 2F 01 19 01)
       (|qi|::|lineread| |qi|::|eval|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2349 2365 (DEFUN eval (V5360) ...)-213|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|eval| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|eval|
       #182Y(00 00 00 00 01 00 00 00 26 02 9E 20 07 94 01 6F 00 88 01 13 9E 20
             30 94 01 6F 02 89 01 29 63 AE 30 03 14 31 63 19 02 9E 1B 78 CA 16
             01 1B 80 65 CD 16 01 1B 80 5F 94 02 6F 06 6F 07 AC 24 05 6A AC 24
             08 6C CE 1B 11 9E 20 80 4E 94 01 6F 04 AC 24 05 63 AC 24 08 3D CE
             14 AD 33 01 1E 94 01 6C FF A8 E4 95 03 33 00 16 9B 00 02 94 01 6C
             FF 9A 9F 5C 78 6C FF 94 30 0B 19 02 95 01 94 02 94 01 00 5D 7A 9E
             5C 7A 29 01 04 FF 7F 94 01 6C FF 7A 36 00 19 02 CD F8 88 01 44 9E
             20 09 9E 5C 20 05 9E 5C 5C 1D 46 9E 20 04 9E 5C 21 4E 9E 20 04 9E
             5C 1D 58 9E 19 02)
       (|qi|::|lisp-macro?| |qi|::|wrapper| |qi|::|macro?| |qi|::|lisp_code|
        |qi|::|symbol?| |qi|::|true| |qi|::|arityf| |qi|::|empty?|
        |qi|::|false| "~S is not a boolean~%" |qi|::|eval| |qi|::|apply|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5360|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2367 2370 (DEFUN lisp-macro? (V5366) ...)-214|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|lisp-macro?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|lisp-macro?|
       #64Y(00 00 00 00 01 00 00 00 26 02 AD DA 38 03 8C C1 11 AD 6F 02 AC 24
            01 13 AC 24 06 21 CC 14 AD 33 01 1E C6 19 02 C6 19 04 CB 19 04 AE
            6B 03 70 04 6F 05 AC 24 01 6F AC 24 06 6E CC 1B 60 CB 19 03)
       ((|qi|::|define| |qi|::|defcc| |qi|::|datatype| |qi|::|abstype|
         |qi|::|structure| |qi|::|newfuntype| |qi|::|synonyms| |qi|::|theory|)
        |qi|::|true| |qi|::|macro?| |qi|::|*sysfuncs*| |qi|::|element?|
        |qi|::|not| |qi|::|false| "~S is not a boolean~%")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5366|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2372 2375 (DEFUN macro? (V5896) ...)-215|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|macro?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|macro?|
       #56Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 AC 24 01 10 AC 24 04 20 CA
            14 AD 33 01 1E C6 19 04 C9 19 04 AE 38 01 71 5F 6F 02 6F 03 AC 24
            01 6D AC 24 04 6C CA 1B 61 C9 19 03)
       (|qi|::|symbol?| |qi|::|true| |qi|::|empty?| |qi|::|not| |qi|::|false|
        "~S is not a boolean~%")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5896|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2377 2378 (DEFMACRO input+ (Colon Type) ...)-216|
   #23Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC DD 72 4C 32 9C C5 19 01)
   (|qi|::|input+| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|input+|
       #37Y(00 00 00 00 02 00 00 00 26 03 AE DA DA 63 2D 04 01 1D 0D 9F 5C 5C
            78 DD DE AE 7B 02 61 02 19 04 AE 2F 02 19 03)
       (3. |SYSTEM|::|LIST-LENGTH-IN-BOUNDS-P| |SYSTEM|::|MACRO-CALL-ERROR|
        |qi|::|input+help| |COMMON-LISP|::|QUOTE|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|SYSTEM|::|<MACRO-FORM>| |SYSTEM|::|<ENV-ARG>|) |COMMON-LISP|::|NIL| 1)
    (|qi|::|Colon| |qi|::|Type|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2380 2386 (DEFUN input+help (V3461) ...)-217|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|input+help| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|input+help|
       #47Y(00 00 00 00 01 00 00 00 26 02 2E 00 78 63 AD B0 6F 01 6E 03 02 24
            03 05 AC 2F 08 19 03 DE AD 30 05 E0 6B 07 B0 6F 01 33 02 15 AE 29
            01 04 5B)
       (|qi|::|lineread| |qi|::|curry_type| |qi|::|typechecks?| |qi|::|false|
        "~A is not of type" |qi|::|output|
        #Y(|qi|::|input+help-1|
           #31Y(00 00 00 00 02 00 00 00 21 18 00 10 00 DB B3 31 94 B1 B3 31 90
                DC B3 38 02 31 95 A1 11 19 04)
           (|SYSTEM|::|*FORMAT-CS*| #\Space
            "\n
Reinput: ")
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        |COMMON-LISP|::|*STANDARD-OUTPUT*| |qi|::|eval|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V3461|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2388 2393 (DEFUN read-file-as-charlist (File) ...)-218|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|read-file-as-charlist| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|read-file-as-charlist|
       #113Y(03 00 01 00 01 00 00 00 26 02 38 02 72 8F 6B 00 00 10 01 AF B1 31
             90 B2 B1 31 90 11 16 01 AC 81 90 00 AC 8F 08 37 AC DD 38 05 72 0B
             53 34 C9 45 64 63 93 01 0E B1 01 02 38 01 80 83 01 14 84 00 92 01
             72 95 00 32 64 16 02 41 05 00 00 02 1D 03 14 2F 05 46 54 05 00 00
             00 1D 13 1B 0B DC AD 33 01 1E 05 00 00 00 1D 06 14 E0 64 2D 03 05
             55 19 04)
       (|qi|::|*qi_home_directory*| |SYSTEM|::|*FORMAT-CS*|
        "~%~A does not exist~%" :|INPUT| #.#'|COMMON-LISP|::|VALUES|
        |COMMON-LISP|::|CLOSE| :|ABORT|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|File|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2395 2395 (DEFVAR *qi_home_directory* "")-219|
   #24Y(00 00 00 00 00 00 00 00 20 01 DA 31 62 DB 8C 57 04 DB DC 31 5A C6 19
        01)
   ((|COMMON-LISP|::|SPECIAL| |qi|::|*qi_home_directory*|)
    |qi|::|*qi_home_directory*| "")
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2397 2399 (DEFUN cd (String) ...)-220|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|cd| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|cd|
       #43Y(00 00 00 00 01 00 00 00 26 02 AD DA 8E 14 19 38 02 72 8F 00 10 02
            B1 B0 31 90 DD B0 31 94 11 AC 32 90 16 01 0F 01 19 02 9E 1B 79)
       ("" |qi|::|*qi_home_directory*| |SYSTEM|::|*FORMAT-CS*| #\/)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|String|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2401 2406 (DEFUN read-file (Filename) ...)-221|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|read-file| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|read-file|
       #111Y(03 00 01 00 01 00 00 00 26 02 38 02 72 8F 6B 00 00 10 01 AF B1 31
             90 B2 B1 31 90 11 16 01 AC 81 90 00 AC 8E 08 04 DC AD 30 03 AC DE
             38 05 72 0B 53 2E CA 45 AF B0 01 02 38 01 71 83 63 E0 E1 E0 70 08
             E1 E0 70 08 E3 E3 E4 2D 09 0B 41 05 00 00 02 1D 03 14 2F 0C 46 54
             05 00 00 00 1D 0E 1B 06 05 00 00 00 1D 06 14 E7 64 2D 03 0C 55 19
             04)
       (|qi|::|*qi_home_directory*| |SYSTEM|::|*FORMAT-CS*|
        "~%~A does not exist~%" |qi|::|error| :|INPUT|
        #.#'|COMMON-LISP|::|VALUES| 1. 0. |qi|::|@p| |qi|::|false| |qi|::|eof?|
        |qi|::|read-user-input| |COMMON-LISP|::|CLOSE| :|ABORT|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Filename|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2408 2419 (DEFUN lineread NIL ...)-222|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|lineread| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|lineread|
       #46Y(00 00 00 00 00 00 00 00 26 01 6B 00 6B 00 6F 01 DC DD DE DD 70 05
            DE DD 70 05 E0 E0 E1 6E 09 08 93 00 07 E3 AD 33 00 16 19 02 29 00
            02 5C)
       (|COMMON-LISP|::|*STANDARD-INPUT*| |qi|::|read-user-input-stream|
        (#\Space) 1. 0. |qi|::|@p| |qi|::|false| |qi|::|endinput?|
        |qi|::|read-user-input| |qi|::|macroexpand|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2421 2424 (DEFUN eof? (V5494 V5495 V5496 ...) ...)-223|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|eof?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|eof?|
       #19Y(00 00 00 00 08 00 00 00 26 00 93 07 03 C6 19 09 C5 19 09)
       (|qi|::|true| |qi|::|false|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|V5494| |qi|::|V5495| |qi|::|V5496| |qi|::|V5497| |qi|::|V5498|
        |qi|::|V5499| |qi|::|V5500| |qi|::|V5501|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2426 2438 (DEFUN endinput? (V5556 V5557 V5558 ...) ...)-224|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|endinput?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|endinput?|
       #68Y(00 00 00 00 08 00 00 00 26 00 B3 24 00 2E B3 25 03 27 A3 20 24 B0
            6F 04 89 05 1E E0 B1 E1 72 43 25 08 16 AF 6F 04 89 05 10 E0 B0 E1
            72 43 25 08 08 AE 25 09 04 AD 24 09 08 CE 19 09 DB 2F 02 19 09 CF
            19 09)
       (#\^ "input aborted~%" |qi|::|error| #\Newline |qi|::|tuple?|
        |qi|::|wrapper| |qi|::|TUPLE| 1. 0. |qi|::|false| |qi|::|true|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5556| |qi|::|V5557| |qi|::|V5558| |qi|::|V5559| |qi|::|V5560|
        |qi|::|V5561| |qi|::|V5562| |qi|::|V5563|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2440 2541 (DEFUN read-user-input (V5360 V5361 V5362 ...) ...)-225|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|read-user-input| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|read-user-input|
       #806Y(00 00 00 00 09 00 00 00 26 00 AD B6 B6 B6 B6 B6 B6 B6 B6 76 08 88
             00 81 2B B4 24 03 81 32 B4 25 06 09 A4 20 06 94 07 24 07 81 38 A4
             20 10 94 07 25 06 0B A4 5C 20 07 A4 5C 78 24 07 80 EE B4 24 06 81
             27 AE 88 00 81 30 B4 24 09 81 33 AF 88 00 80 DA B4 24 0A 81 39 B4
             24 12 81 58 B4 24 15 81 61 B4 24 0C 81 66 B4 24 13 81 70 B4 25 17
             18 A4 20 15 94 07 6F 18 AC 24 19 81 7D AC 25 1B 81 8A 03 1B F8 88
             00 81 88 B4 25 17 22 A4 20 1F 94 07 25 1F 1A A4 5C 20 16 A4 5C 78
             6F 18 AC 24 19 81 88 AC 25 1B 81 95 03 1B F8 88 00 81 93 B4 25 17
             22 A4 20 1F 94 07 25 20 1A A4 5C 20 16 A4 5C 78 6F 18 AC 24 19 81
             94 AC 25 1B 81 A1 03 1B F8 88 00 81 9F B4 25 20 18 A4 20 15 94 07
             6F 18 AC 24 19 81 B0 AC 25 1B 81 BC 03 1B F8 88 00 81 B9 B4 25 1F
             18 A4 20 15 94 07 6F 18 AC 24 19 81 C3 AC 25 1B 81 CF 03 1B F8 88
             00 81 CF B4 25 21 09 B5 6F 1A 6F 18 88 00 81 CE B4 24 23 81 D8 B4
             24 24 81 DD B4 24 25 81 E2 B4 24 26 81 ED B5 B6 6F 04 A7 14 A7 5D
             14 B5 A6 14 A6 14 A6 14 A6 14 B5 29 09 13 FE C6 B3 B2 B2 B2 B2 6E
             05 01 2F 02 19 0A B5 B6 6F 04 DD A7 7A 96 09 B6 B6 70 05 B7 B6 30
             05 1B 56 B5 B6 6F 04 CB 1B 47 B5 B6 6F 04 B5 B5 B5 B5 B5 B5 2F 08
             1B 45 B5 B6 6F 04 A6 1B FF B4 B5 B6 6F 04 E3 A7 7A B5 B5 B5 B5 2F
             08 1B FF AB B5 B6 6F 04 E5 E6 E7 E8 E9 EA E8 EA E5 00 5D 5D 5D 5D
             5D 5D 5D 5D 7A 72 63 B6 73 02 23 B5 B5 2F 11 1B FF 83 B5 B6 6F 04
             ED A7 7A B5 B5 2F 14 1B FF 75 B5 B6 6F 04 E5 F0 D0 1B 81 45 B5 B6
             6F 04 E6 A7 7A B5 B5 B5 2F 11 1B FF 5E B5 B6 6F 04 ED A7 7A B5 B5
             B5 2F 14 1B FF 4F 03 19 16 01 1B FE 91 03 1B 16 01 1B FE 8A B6 6F
             1A 6F 18 AC 24 19 69 AC 24 1B 6C 03 1C 1B 80 CB 03 1C 1B 80 C6 B5
             B6 6F 04 F1 F7 E8 03 1E 1B 80 D5 03 19 16 01 1B FE 86 03 1B 16 01
             1B FE 7F B6 6F 1A 6F 18 AC 24 19 69 AC 24 1B 6C 03 1C 1B 80 9A 03
             1C 1B 80 95 B5 B6 6F 04 F1 65 1F F7 E8 03 1E 1B 30 03 19 16 01 1B
             FE 7A 03 1B 16 01 1B FE 73 B6 6F 1A 6F 18 AC 24 19 69 AC 24 1B 6C
             03 1C 1B 80 68 03 1C 1B 80 63 B5 B6 6F 04 F1 65 20 F7 E8 03 1E 14
             AB 5C 5D 5D 1B 80 8E 03 19 16 01 1B FE 5E 03 1B 16 01 1B FE 57 B6
             6F 1A 6F 18 AC 24 19 69 AC 24 1B 6C 03 1C 1B 31 03 1C 1B 2D B5 B6
             6F 04 65 20 F7 E8 03 1E 1B 3C 03 19 16 01 1B FE 4B 03 1B 16 01 1B
             FE 44 B6 6F 1A 6F 18 AC 24 19 69 AC 24 1B 6C 03 1C 1B 02 03 1C 14
             AD 33 01 1E B5 B6 6F 04 65 1F F7 E8 03 1E 1B 0A B5 B6 6F 04 E5 65
             22 65 22 D0 14 AA 5D 1B 1E B5 B6 6F 04 E5 65 23 D0 1B 12 B5 B6 6F
             04 E5 65 24 D0 1B 08 B5 B6 6F 04 E5 65 25 D0 14 A9 5D 5D 5D 1B FE
             1B B5 B6 6F 04 65 27 B6 33 02 23 1B FE 0E)
       (|qi|::|wrapper| |qi|::|assemble-chars| |qi|::|recurse-let| #\Newline
        |qi|::|read-user-input-stream| |qi|::|incl| #\\ #\# |qi|::|not| #\" #\[
        #\Space #\( #\l #\i #\s #\t |qi|::|inc| #\] #\) |qi|::|dec| #\| #\@ #\=
        |qi|::|seperator?| |qi|::|true| |qi|::|peek| |qi|::|false|
        "~S is not a boolean~%" #\_ #\q #\> #\< #\: #\$ #\; #\{ #\} #\,
        (#\Space #\+ #\+ #\Space))
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5360| |qi|::|V5361| |qi|::|V5362| |qi|::|V5363| |qi|::|V5364|
        |qi|::|V5365| |qi|::|V5366| |qi|::|V5367| |qi|::|V5368|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2543 2552 (DEFUN recurse-let (V7) ...)-226|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|recurse-let| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|recurse-let|
       #75Y(00 00 00 00 01 00 00 00 26 02 9E 20 1B 94 01 25 00 16 9E 5C 20 12
            9E 5C 5C 20 0D 9E 5C 5C 5C 20 07 9E 5C 5C 5C 5C 21 06 9E 21 19 9E
            19 02 95 01 95 00 DA 94 02 94 02 DA A1 5C 7A 00 5D 5D 5D 7A 29 01
            05 46 DB AE 33 00 16 19 02)
       (|qi|::|let| |qi|::|recurse-let|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|V7|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2554 2556 (DEFUN mlet (&REST X) ...)-227|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|mlet| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|mlet| #14Y(00 00 00 00 00 00 00 00 27 16 DA 33 00 1E)
       ("mlet has been discontinued after 8.0; use let instead.~%")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|COMMON-LISP|::|&REST| |qi|::|X|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2558 2561 (DEFUN map-dotted-pair (V96 V97) ...)-228|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|map-dotted-pair| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|map-dotted-pair|
       #41Y(00 00 00 00 02 00 00 00 26 03 92 01 13 00 19 03 AE 94 02 70 00 AF
            95 03 28 03 5D 19 03 93 01 6D 9E 21 6D AE AE 30 00 19 03)
       (|qi|::|apply|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V96| |qi|::|V97|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2563 2566 (DEFUN read-user-input-stream (Stream) ...)-229|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|read-user-input-stream| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|read-user-input-stream|
       #26Y(00 00 00 00 01 00 00 00 26 02 AD 01 02 38 01 71 83 AC 0E 00 5D 0F
            00 15 19 02)
       (|qi|::|*read-user-input-characters*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2568 2568 (DEFUN peek (Stream) ...)-230|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|peek| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|peek|
       #19Y(00 00 00 00 01 00 00 00 26 02 63 AE 63 38 02 31 85 19 02) ()
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2570 2575 (DEFUN seperator? (V5940) ...)-231|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|seperator?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|seperator?|
       #32Y(00 00 00 00 01 00 00 00 26 02 AD DA DB DC DD DE DF E0 63 00 5D 5D
            5D 5D 5D 5D 5D 7A 30 07 19 02)
       (#\Space #\Newline #\( #\) #\] #\[ #\, |qi|::|element?|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5940|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2577 2581 (DEFUN inc (V5942) ...)-232|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|inc| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|inc|
       #37Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 88 01 05 E0 2F 07 19 02 DC
            AE DD 72 43 72 B1 DC AF DE 72 43 30 05 19 02)
       (|qi|::|tuple?| |qi|::|wrapper| |qi|::|TUPLE| 1. 2. |qi|::|@p|
        |qi|::|inc| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5942|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2583 2587 (DEFUN dec (V5947) ...)-233|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|dec| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|dec|
       #37Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 88 01 05 E0 2F 07 19 02 DC
            AE DD 72 43 72 B2 DC AF DE 72 43 30 05 19 02)
       (|qi|::|tuple?| |qi|::|wrapper| |qi|::|TUPLE| 1. 2. |qi|::|@p|
        |qi|::|dec| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5947|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2589 2593 (DEFUN incl (V5372 V5373) ...)-234|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|incl| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|incl|
       #34Y(00 00 00 00 02 00 00 00 26 03 AD 6F 00 89 01 08 DC AE DD 72 43 24
            04 03 9E 19 03 DE 96 03 30 05 19 03)
       (|qi|::|tuple?| |qi|::|wrapper| |qi|::|TUPLE| 1. 0. |qi|::|@p|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5372| |qi|::|V5373|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2595 2612 (DEFUN assemble-chars (V4110 V4111 V4112 ...) ...)-235|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|assemble-chars| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|assemble-chars|
       #219Y(00 00 00 00 05 00 00 00 26 06 B0 6F 00 89 01 1E DC B1 DD 72 43 25
             04 16 AF 6F 00 89 01 10 DC B0 DD 72 43 25 04 08 AE 25 05 04 AD 24
             05 26 AE 24 0A 34 AD 25 0A 80 63 38 02 72 8F 00 10 0B E9 B0 38 02
             31 95 AF 01 02 D5 14 2D 04 0E 11 AC 81 90 00 33 00 1E E0 E1 A4 7A
             32 63 7A E2 72 3B 38 05 71 89 2F 09 19 06 38 02 72 8F 00 10 0B E6
             B0 38 02 31 95 AF 01 02 D2 1B 4F EE DC B2 03 15 1B 80 4F DC B1 DD
             72 43 DE 70 13 24 0A 6D F0 DC B2 03 15 1B 3D F1 DC B1 03 15 1B 36
             B0 6F 00 89 01 0D DC B1 DD 72 43 DE 70 11 6F 12 88 01 54 AF 6F 00
             89 01 23 DC B0 DD 72 43 DE 70 11 6F 12 89 01 16 DC B0 DD 72 43 DE
             70 13 24 0A 48 F2 DC B1 03 15 14 72 43 33 01 1E F3 2F 1A 19 06)
       (|qi|::|tuple?| |qi|::|wrapper| |qi|::|TUPLE| 1. 0. |qi|::|false| #\(
        #\) |COMMON-LISP|::|STRING| |qi|::|cons_form| |qi|::|true|
        |SYSTEM|::|*FORMAT-CS*| "Unmatched " #\"
        |SYSTEM|::|DO-FORMAT-CHARACTER| "Unmatched " #\\ |qi|::|qi_=|
        |qi|::|not| |qi|::|qi_>|
        "~%Too many [s or too few ]s; last balanced at line ~A" 2.
        "~%Too many ]s or too few [s; last balanced at line ~A"
        "~%Too many (s or too few )s; last balanced at line ~A"
        "~%Too many )s or too few (s; last balanced at line ~A"
        |qi|::|assemble-chars| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V4110| |qi|::|V4111| |qi|::|V4112| |qi|::|V4113| |qi|::|V4114|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2614 2626 (DEFUN cons_form (V6003) ...)-236|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|cons_form| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|cons_form|
       #122Y(00 00 00 00 01 00 00 00 26 02 9E 20 09 94 01 25 00 04 9E 5C 1D 37
             AD 6F 01 88 02 34 9E 20 1C 94 01 25 00 17 9E 5C 20 13 9E 5C 5C 20
             0E 9E 5C 5C 5C 1C 08 9E 5C 78 6F 01 88 02 1A 9E 20 09 94 01 25 00
             04 9E 5C 21 17 9E 21 29 9E 19 02 00 19 02 DD 2F 04 19 02 9E 5C 5C
             78 29 01 03 FF AC 95 01 DF 94 01 6C FF A4 DA A0 5C 7A 6C FF 9D 00
             5D 5D 5D 19 03 E0 AE 33 00 16 19 02)
       (|qi|::|listit| |qi|::|atsign?| |qi|::|wrapper| "Improper use of |~%"
        |qi|::|error| |qi|::|cons| |qi|::|cons_form|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6003|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2628 2631 (DEFUN atsign? (X) ...)-237|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|atsign?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|atsign?|
       #20Y(00 00 00 00 01 00 00 00 26 02 AD 24 00 03 C7 19 02 C6 19 02)
       (|qi|::|@| |qi|::|true| |qi|::|false|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|X|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2633 2636 (DEFUN error (&REST ARGS) ...)-238|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|error| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|error|
       #31Y(00 00 00 00 00 00 00 00 27 16 DA 6B 01 33 01 15 64 DC 63 A1 5D 77
            00 6F 03 30 02 DE 33 00 1E)
       (#Y(|qi|::|error-1|
           #23Y(00 00 00 00 01 00 00 00 21 17 00 10 00 DB B2 38 02 31 95 A1 11
                19 03)
           (|SYSTEM|::|*FORMAT-CS*| "error: ")
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        |COMMON-LISP|::|*STANDARD-OUTPUT*| |COMMON-LISP|::|FORMAT|
        |qi|::|sanitise-string| "")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|COMMON-LISP|::|&REST| |qi|::|ARGS|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2638 2639 (DEFUN make-string (&REST ARGS) ...)-239|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|make-string| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|make-string|
       #20Y(00 00 00 00 00 00 00 00 27 16 DA 63 A0 5D 77 00 2F 01 19 02)
       (|COMMON-LISP|::|FORMAT| |qi|::|sanitise-string|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|COMMON-LISP|::|&REST| |qi|::|ARGS|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2641 2644 (DEFUN output (&REST ARGS) ...)-240|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|output| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|output|
       #28Y(00 00 00 00 00 00 00 00 27 16 64 DA 63 A1 5D 77 00 6F 01 30 00 38
            01 31 9B C7 19 02)
       (|COMMON-LISP|::|FORMAT| |qi|::|sanitise-string| "done")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|COMMON-LISP|::|&REST| |qi|::|ARGS|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2646 2647 (DEFUN sanitise-string (String) ...)-241|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|sanitise-string| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|sanitise-string|
       #21Y(00 00 00 00 01 00 00 00 26 02 AD DA 72 3B 63 DB 2D 03 02 19 02)
       (|COMMON-LISP|::|LIST| |qi|::|false| |qi|::|sanitise-string-help|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|String|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2649 2716 (DEFUN sanitise-string-help (V5362 V5363 V5364) ...)-242|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|sanitise-string-help| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|sanitise-string-help|
       #630Y(00 00 00 00 03 00 00 00 26 04 92 03 80 A5 AE 72 63 DA 32 3B 19 04
             95 03 DB A1 7A AF 6F 02 29 03 07 80 8C 95 03 94 04 A1 7A DD 29 03
             07 80 80 A0 5C 79 CA 1B 82 32 A0 5C 5C 5C 79 E4 63 B0 6E 04 0B E3
             E2 E1 E0 A4 5D 5D 5D 1B 82 1E 95 03 95 00 95 00 94 01 E7 E6 A5 5D
             5D 7A B1 29 03 09 80 4F 95 03 D3 1B 82 02 95 03 D4 1B 81 FC A0 5C
             5C 5C 79 D8 1B 81 F3 A0 5C 5C 5C 79 D9 1B 81 EA A0 5C 5C 5C 5C 79
             EF D8 1B 21 A0 5C 5C 5C 5C 79 EF D9 1B 17 A0 5C 5C 5C 79 03 15 1B
             81 CC A0 5C 5C 79 E9 D3 1B 05 95 03 F5 03 1B 14 A2 5D 1B 81 BB 93
             03 FF 5B A0 20 06 94 03 24 01 FF 5A A0 20 05 AD 24 03 FF 5F A0 20
             10 94 03 25 04 0B A0 5C 20 07 A0 5C 78 24 05 FF 58 A0 20 2A 94 03
             25 06 25 A0 5C 20 21 A0 5C 78 25 07 1B A0 5C 5C 20 16 A0 5C 5C 78
             25 08 0F A0 5C 5C 5C 20 09 A0 5C 5C 5C 78 24 09 FF 32 A0 20 15 94
             03 25 0C 10 A0 5C 20 0C A0 5C 78 25 0D 06 A0 5C 5C 21 FF 30 A0 20
             06 94 03 24 06 FF 3B A0 20 06 94 03 24 05 FF 38 A0 20 2A 94 03 25
             10 25 A0 5C 20 21 A0 5C 78 25 11 1B A0 5C 5C 20 16 A0 5C 5C 78 25
             12 0F A0 5C 5C 5C 20 09 A0 5C 5C 5C 78 24 13 FF 11 A0 20 2A 94 03
             25 10 25 A0 5C 20 21 A0 5C 78 25 11 1B A0 5C 5C 20 16 A0 5C 5C 78
             25 12 0F A0 5C 5C 5C 20 09 A0 5C 5C 5C 78 24 14 FE ED A0 20 3A 94
             03 25 10 35 A0 5C 20 31 A0 5C 78 25 11 2B A0 5C 5C 20 26 A0 5C 5C
             78 25 12 1F A0 5C 5C 5C 20 19 A0 5C 5C 5C 78 25 13 11 A0 5C 5C 5C
             5C 20 0A A0 5C 5C 5C 5C 78 24 15 FE B9 A0 20 3A 94 03 25 10 35 A0
             5C 20 31 A0 5C 78 25 11 2B A0 5C 5C 20 26 A0 5C 5C 78 25 12 1F A0
             5C 5C 5C 20 19 A0 5C 5C 5C 78 25 14 11 A0 5C 5C 5C 5C 20 0A A0 5C
             5C 5C 5C 78 24 15 FE 86 A0 20 2A 94 03 25 10 25 A0 5C 20 21 A0 5C
             78 25 11 1B A0 5C 5C 20 16 A0 5C 5C 78 25 12 0F A0 5C 5C 5C 20 09
             A0 5C 5C 5C 78 24 15 FE 63 A0 20 26 94 03 25 16 21 A0 5C 20 1D A0
             5C 78 25 17 17 A0 5C 5C 20 12 A0 5C 5C 78 25 18 0B A0 5C 5C 79 AF
             70 19 88 1A FE 44 A0 20 06 94 03 24 1B FE 43 A0 20 0D 95 03 A1 5B
             14 A1 7A AF 29 03 07 FE 3E F6 2F 1D 19 04)
       (|COMMON-LISP|::|STRING| #\" |qi|::|not| |qi|::|true| #\' #\) #\( #\@
        #\p #\Space 1. |qi|::|find_matching_paren| #\# #\\ #\[ #\] #\q #\i #\_
        #\> #\< #\= #\N #\I #\L |qi|::|isolated_nil?| |qi|::|wrapper| #\~
        |qi|::|sanitise-string-help| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5362| |qi|::|V5363| |qi|::|V5364|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2718 2735 (DEFUN find_matching_paren (V5389 V5390 V5391 ...) ...)-243|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|find_matching_paren| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|find_matching_paren|
       #132Y(00 00 00 00 04 00 00 00 26 05 A1 20 05 94 04 24 00 36 A1 20 04 AD
             24 02 3D A1 20 09 94 04 25 03 04 AF 24 04 3E A1 20 06 94 04 24 03
             80 43 A1 20 06 94 04 24 06 80 41 A1 20 80 44 95 04 B0 A3 5B 14 A2
             7A B0 29 04 09 42 95 04 B0 DA A2 7A B0 6F 01 29 04 09 FF B4 95 04
             B0 94 06 A2 7A DC 29 04 09 FF A7 DD DF A1 5D 7A 72 63 95 05 33 02
             23 19 05 95 04 97 04 C8 1B 48 95 04 96 04 CB 1B 41 E1 2F 08 19 05)
       (#\" |qi|::|not| |qi|::|true| #\) 1. #\' #\( |qi|::|find_matching_paren|
        |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5389| |qi|::|V5390| |qi|::|V5391| |qi|::|V5392|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2737 2747 (DEFUN isolated_nil? (V5374 V5375) ...)-244|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|isolated_nil?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|isolated_nil?|
       #125Y(00 00 00 00 02 00 00 00 26 03 92 02 03 93 01 1B 92 02 03 9E 21 18
             9F 20 3F 92 01 3C 94 02 DB DC DD DE DF CB 14 7B 06 30 07 19 03 C5
             19 03 94 01 DB DC DD DE DF CB 1B 6C C5 19 05 CD 19 05 94 02 DB DC
             DD DE DF E0 7B 06 70 07 AC 24 00 6A AC 24 08 69 CE 1B 1E CD 19 04
             9F 20 1D 9E 20 1A 94 02 DB DC DD DE DF E0 7B 06 70 07 AC 24 00 50
             AC 24 08 63 CE 14 AD 33 01 1E E4 2F 0B 19 03)
       (|qi|::|true| #\Space #\Newline #\( #\) #\] #\[ |qi|::|element?|
        |qi|::|false| "~S is not a boolean~%" |qi|::|isolated_nil?|
        |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5374| |qi|::|V5375|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2749 2749 (DEFUN print (V6008) ...)-245|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|print| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|print| #17Y(00 00 00 00 01 00 00 00 26 02 DA AE 30 01 9E 19 02)
       ("~S" |qi|::|output|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6008|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2751 2754 (DEFUN outputrb (&REST ARGS) ...)-246|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|outputrb| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|outputrb|
       #36Y(00 00 00 00 00 00 00 00 27 16 64 DA DB DC DD DE 63 A5 5D 77 00 6F
            05 38 07 72 71 38 07 72 71 30 04 CB 19 02)
       (#\( #\[ #\) #\] |COMMON-LISP|::|FORMAT| |qi|::|sanitise-string| "done")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|COMMON-LISP|::|&REST| |qi|::|ARGS|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2756 2756 (DEFUN number? (X) ...)-247|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|number?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|number?|
       #20Y(00 00 00 00 01 00 00 00 26 02 AD 8E 1A 03 C6 19 02 C5 19 02)
       (|qi|::|true| |qi|::|false|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|X|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2758 2758 (DEFUN string? (X) ...)-248|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|string?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|string?|
       #20Y(00 00 00 00 01 00 00 00 26 02 AD 8E 19 03 C6 19 02 C5 19 02)
       (|qi|::|true| |qi|::|false|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|X|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2760 2760 (DEFUN character? (X) ...)-249|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|character?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|character?|
       #20Y(00 00 00 00 01 00 00 00 26 02 AD 8E 2E 03 C6 19 02 C5 19 02)
       (|qi|::|true| |qi|::|false|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|X|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2762 2762 (DEFUN boolean? (X) ...)-250|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|boolean?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|boolean?|
       #23Y(00 00 00 00 01 00 00 00 26 02 AD DA 38 03 8C C1 03 C7 19 02 C6 19
            02)
       ((|qi|::|true| |qi|::|false|) |qi|::|true| |qi|::|false|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|X|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2764 2764 (DEFUN integer? (X) ...)-251|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|integer?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|integer?|
       #20Y(00 00 00 00 01 00 00 00 26 02 AD 8E 1E 03 C6 19 02 C5 19 02)
       (|qi|::|true| |qi|::|false|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|X|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2766 2766 (DEFUN complex? (X) ...)-252|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|complex?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|complex?|
       #20Y(00 00 00 00 01 00 00 00 26 02 AD 8E 27 03 C6 19 02 C5 19 02)
       (|qi|::|true| |qi|::|false|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|X|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2768 2768 (DEFUN float? (X) ...)-253|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|float?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|float?|
       #20Y(00 00 00 00 01 00 00 00 26 02 AD 8E 21 03 C6 19 02 C5 19 02)
       (|qi|::|true| |qi|::|false|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|X|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2770 2770 (DEFUN real? (X) ...)-254|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|real?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|real?|
       #20Y(00 00 00 00 01 00 00 00 26 02 AD 8E 26 03 C6 19 02 C5 19 02)
       (|qi|::|true| |qi|::|false|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|X|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2772 2772 (DEFUN rational? (X) ...)-255|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|rational?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|rational?|
       #20Y(00 00 00 00 01 00 00 00 26 02 AD 8E 20 03 C6 19 02 C5 19 02)
       (|qi|::|true| |qi|::|false|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|X|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2774 2774 (DEFUN sqrt (X) ...)-256|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|sqrt| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|sqrt| #15Y(00 00 00 00 01 00 00 00 26 02 AD 32 B7 19 02) ()
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|X|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2776 2776 (DEFUN random (X) ...)-257|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|random| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|random| #17Y(00 00 00 00 01 00 00 00 26 02 AD 38 01 32 F7 19 02)
       () (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|X|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2778 2778 (DEFUN round (X) ...)-258|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|round| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|round| #17Y(00 00 00 00 01 00 00 00 26 02 AD 38 01 32 D1 19 02)
       () (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|X|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2780 2780 (DEFUN congruent? (X Y) ...)-259|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|congruent?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|congruent?|
       #21Y(00 00 00 00 02 00 00 00 26 03 AE AE 8E 15 03 C6 19 03 C5 19 03)
       (|qi|::|true| |qi|::|false|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|X| |qi|::|Y|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2782 2782 (DEFUN qi_= (X Y) ...)-260|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|qi_=| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|qi_=|
       #21Y(00 00 00 00 02 00 00 00 26 03 AE AE 8A 00 03 C7 19 03 C6 19 03)
       (|qi|::|ABSEQUAL| |qi|::|true| |qi|::|false|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|X| |qi|::|Y|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2784 2784 (DEFUN == (X Y) ...)-261|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|==| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|==| #16Y(00 00 00 00 02 00 00 00 26 03 AE AE 30 00 19 03)
       (|qi|::|qi_=|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|X| |qi|::|Y|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2786 2786 (DEFUN qi_> (X Y) ...)-262|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|qi_>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|qi_>|
       #22Y(00 00 00 00 02 00 00 00 26 03 AE AE 90 01 32 03 C6 19 03 C5 19 03)
       (|qi|::|true| |qi|::|false|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|X| |qi|::|Y|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2788 2788 (DEFUN qi_< (X Y) ...)-263|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|qi_<| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|qi_<|
       #22Y(00 00 00 00 02 00 00 00 26 03 AE AE 90 01 31 03 C6 19 03 C5 19 03)
       (|qi|::|true| |qi|::|false|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|X| |qi|::|Y|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2790 2790 (DEFUN qi_>= (X Y) ...)-264|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|qi_>=| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|qi_>=|
       #22Y(00 00 00 00 02 00 00 00 26 03 AE AE 90 01 34 03 C6 19 03 C5 19 03)
       (|qi|::|true| |qi|::|false|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|X| |qi|::|Y|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2792 2792 (DEFUN qi_<= (X Y) ...)-265|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|qi_<=| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|qi_<=|
       #22Y(00 00 00 00 02 00 00 00 26 03 AE AE 90 01 33 03 C6 19 03 C5 19 03)
       (|qi|::|true| |qi|::|false|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|X| |qi|::|Y|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2794 2797 (DEFUN if-without-checking (String) ...)-266|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|if-without-checking| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|if-without-checking|
       #22Y(00 00 00 00 01 00 00 00 26 02 6B 00 24 01 03 C7 19 02 AD 33 00 1E)
       (|qi|::|*tc*| |qi|::|false| |qi|::|ok|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|String|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2799 2802 (DEFUN if-with-checking (String) ...)-267|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|if-with-checking| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|if-with-checking|
       #22Y(00 00 00 00 01 00 00 00 26 02 6B 00 24 01 03 C7 19 02 AD 33 00 1E)
       (|qi|::|*tc*| |qi|::|true| |qi|::|ok|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|String|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2804 2807 (DEFMACRO if (X Y Z) ...)-268|
   #23Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC DD 72 4C 32 9C C5 19 01)
   (|qi|::|if| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|if|
       #60Y(00 00 00 00 02 00 00 00 26 03 AE DA DA 63 2D 04 01 1D 24 9F 5C 78
            A0 5C 5C 78 A1 5C 5C 5C 78 DD DE B0 7B 02 7B 01 DF E0 B1 7B 02 E1
            B1 7B 02 CD 5D 5D 7A 61 03 19 06 AE 2F 02 19 03)
       (4. |SYSTEM|::|LIST-LENGTH-IN-BOUNDS-P| |SYSTEM|::|MACRO-CALL-ERROR|
        |COMMON-LISP|::|LET| |qi|::|*C*| |COMMON-LISP|::|COND|
        (|COMMON-LISP|::|EQ| |qi|::|*C*| '|qi|::|true|)
        (|COMMON-LISP|::|EQ| |qi|::|*C*| '|qi|::|false|)
        ((|COMMON-LISP|::|T|
          (|COMMON-LISP|::|ERROR| "~S is not a boolean~%" |qi|::|*C*|))))
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|SYSTEM|::|<MACRO-FORM>| |SYSTEM|::|<ENV-ARG>|) |COMMON-LISP|::|NIL| 1)
    (|qi|::|X| |qi|::|Y| |qi|::|Z|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2809 2809 (DEFMACRO and (X Y) ...)-269|
   #23Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC DD 72 4C 32 9C C5 19 01)
   (|qi|::|and| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|and|
       #44Y(00 00 00 00 02 00 00 00 26 03 AE DA DA 63 2D 04 01 1D 14 9F 5C 78
            A0 5C 5C 78 DD AE DD AF C9 5D 7A CA 5D 5D 5D 19 05 AE 2F 02 19 03)
       (3. |SYSTEM|::|LIST-LENGTH-IN-BOUNDS-P| |SYSTEM|::|MACRO-CALL-ERROR|
        |qi|::|if| ('|qi|::|true| '|qi|::|false|) ('|qi|::|false|))
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|SYSTEM|::|<MACRO-FORM>| |SYSTEM|::|<ENV-ARG>|) |COMMON-LISP|::|NIL| 1)
    (|qi|::|X| |qi|::|Y|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2811 2811 (DEFMACRO or (X Y) ...)-270|
   #23Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC DD 72 4C 32 9C C5 19 01)
   (|qi|::|or| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|or|
       #43Y(00 00 00 00 02 00 00 00 26 03 AE DA DA 63 2D 04 01 1D 13 9F 5C 78
            A0 5C 5C 78 DD AE DE DD B0 CA 5D 7A 61 04 19 05 AE 2F 02 19 03)
       (3. |SYSTEM|::|LIST-LENGTH-IN-BOUNDS-P| |SYSTEM|::|MACRO-CALL-ERROR|
        |qi|::|if| '|qi|::|true| ('|qi|::|true| '|qi|::|false|))
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|SYSTEM|::|<MACRO-FORM>| |SYSTEM|::|<ENV-ARG>|) |COMMON-LISP|::|NIL| 1)
    (|qi|::|X| |qi|::|Y|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2813 2815 (DEFUN not (X) ...)-271|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|not| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|not|
       #29Y(00 00 00 00 01 00 00 00 26 02 AD 24 00 09 AD 24 01 08 DC AE 33 01
            1E C6 19 02 C5 19 02)
       (|qi|::|true| |qi|::|false| "~S is not a boolean~%")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|X|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2817 2817 (DEFUN element? (x y) ...)-272|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|element?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|element?|
       #24Y(00 00 00 00 02 00 00 00 26 03 AE AE DA 38 02 8C C1 03 C7 19 03 C6
            19 03)
       (|qi|::|ABSEQUAL| |qi|::|true| |qi|::|false|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|x| |qi|::|y|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2819 2819 (DEFUN subst (X Y Z) ...)-273|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|subst| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|subst|
       #20Y(00 00 00 00 03 00 00 00 26 04 AF AF AF DA 38 02 31 B9 19 04)
       (|qi|::|ABSEQUAL|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|X| |qi|::|Y| |qi|::|Z|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2821 2821 (DEFUN remove (x y) ...)-274|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|remove| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|remove|
       #20Y(00 00 00 00 02 00 00 00 26 03 AE AE 38 07 C5 FA 32 69 19 03)
       (|qi|::|ABSEQUAL|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|x| |qi|::|y|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2823 2823 (DEFUN difference (x y) ...)-275|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|difference| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|difference|
       #19Y(00 00 00 00 02 00 00 00 26 03 AE AE DA DB 2D 04 02 19 03)
       (:|TEST| |qi|::|ABSEQUAL| |COMMON-LISP|::|SET-DIFFERENCE|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|x| |qi|::|y|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2825 2825 (DEFUN assoc (x y) ...)-276|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|assoc| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|assoc|
       #19Y(00 00 00 00 02 00 00 00 26 03 AE AE DA 38 02 31 C8 19 03)
       (|qi|::|ABSEQUAL|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|x| |qi|::|y|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2827 2827 (DEFMACRO let (VAR VAL EXPR) ...)-277|
   #23Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC DD 72 4C 32 9C C5 19 01)
   (|qi|::|let| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|let|
       #48Y(00 00 00 00 02 00 00 00 26 03 AE DA DA 63 2D 04 01 1D 18 9F 5C 78
            A0 5C 5C 78 A1 5C 5C 5C 78 DD AF AF 7B 02 7B 01 AE 61 03 19 06 AE
            2F 02 19 03)
       (4. |SYSTEM|::|LIST-LENGTH-IN-BOUNDS-P| |SYSTEM|::|MACRO-CALL-ERROR|
        |COMMON-LISP|::|LET|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|SYSTEM|::|<MACRO-FORM>| |SYSTEM|::|<ENV-ARG>|) |COMMON-LISP|::|NIL| 1)
    (|qi|::|VAR| |qi|::|VAL| |qi|::|EXPR|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2829 2829 (DEFMACRO list (&REST X) ...)-278|
   #23Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC DD 72 4C 32 9C C5 19 01)
   (|qi|::|list| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|list| #17Y(00 00 00 00 02 00 00 00 26 03 95 02 DA 9E 5D 19 04)
       (|COMMON-LISP|::|LIST|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|SYSTEM|::|<MACRO-FORM>| |SYSTEM|::|<ENV-ARG>|) |COMMON-LISP|::|NIL| 1)
    (|COMMON-LISP|::|&REST| |qi|::|X|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2831 2831 (DEFUN y-or-n? (X) ...)-279|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|y-or-n?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|y-or-n?|
       #20Y(00 00 00 00 01 00 00 00 26 02 AD 88 00 03 C7 19 02 C6 19 02)
       (|COMMON-LISP|::|Y-OR-N-P| |qi|::|true| |qi|::|false|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|X|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2833 2833 (DEFUN empty? (x) ...)-280|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|empty?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|empty?|
       #19Y(00 00 00 00 01 00 00 00 26 02 93 01 03 C6 19 02 C5 19 02)
       (|qi|::|true| |qi|::|false|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|x|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2835 2835 (DEFUN value (X) ...)-281|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|value| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|value| #15Y(00 00 00 00 01 00 00 00 26 02 AD 31 55 19 02) ()
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|X|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2837 2837 (DEFUN length (X) ...)-282|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|length| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|length| #15Y(00 00 00 00 01 00 00 00 26 02 AD 31 A0 19 02) ()
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|X|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2839 2841 (DEFUN nth (N L) ...)-283|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|nth| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|nth|
       #36Y(00 00 00 00 02 00 00 00 26 03 AE DA 90 01 2F 0D 97 02 95 02 29 02
            05 72 DB 2F 02 19 03 93 01 78 9E 5B 19 03)
       (1. "nth expects a longer list.~%" |qi|::|error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|N| |qi|::|L|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2843 2843 (DEFUN concat (X Y) ...)-284|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|concat| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|concat|
       #36Y(00 00 00 00 02 00 00 00 26 03 38 02 72 8F 00 10 00 B2 B0 31 90 B1
            B0 31 90 11 AC 81 90 00 38 05 31 89 19 03)
       (|SYSTEM|::|*FORMAT-CS*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|X| |qi|::|Y|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2845 2845 (DEFUN append (X Y) ...)-285|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|append| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|append| #17Y(00 00 00 00 02 00 00 00 26 03 AE AE 33 02 23 19 03)
       () (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|X| |qi|::|Y|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2847 2847 (DEFUN reverse (X) ...)-286|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|reverse| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|reverse| #15Y(00 00 00 00 01 00 00 00 26 02 AD 32 63 19 02) ()
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|X|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2849 2849 (DEFUN set (X Y) ...)-287|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|set| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|set| #16Y(00 00 00 00 02 00 00 00 26 03 AE AE 30 00 19 03)
       (|COMMON-LISP|::|SET|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|X| |qi|::|Y|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2851 2851 (DEFUN cons (X Y) ...)-288|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|cons| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|cons| #15Y(00 00 00 00 02 00 00 00 26 03 AE 9F 5D 19 03) ()
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|X| |qi|::|Y|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2853 2853 (DEFUN @c (X Y) ...)-289|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|@c| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|@c| #15Y(00 00 00 00 02 00 00 00 26 03 AE 9F 5D 19 03) ()
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|X| |qi|::|Y|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2855 2855 (DEFUN cons? (X) ...)-290|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|cons?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|cons?|
       #19Y(00 00 00 00 01 00 00 00 26 02 9E 21 03 C6 19 02 C5 19 02)
       (|qi|::|true| |qi|::|false|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|X|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2857 2857 (DEFMACRO time (X) ...)-291|
   #23Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC DD 72 4C 32 9C C5 19 01)
   (|qi|::|time| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|time|
       #33Y(00 00 00 00 02 00 00 00 26 03 AE DA DA 63 2D 04 01 1D 09 9F 5C 78
            DD AD 61 02 19 04 AE 2F 02 19 03)
       (2. |SYSTEM|::|LIST-LENGTH-IN-BOUNDS-P| |SYSTEM|::|MACRO-CALL-ERROR|
        |COMMON-LISP|::|TIME|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|SYSTEM|::|<MACRO-FORM>| |SYSTEM|::|<ENV-ARG>|) |COMMON-LISP|::|NIL| 1)
    (|qi|::|X|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2859 2860 (DEFUN implementation_error (Func) ...)-292|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|implementation_error| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|implementation_error|
       #15Y(00 00 00 00 01 00 00 00 26 02 DA AE 33 01 1E)
       ("Qi implementation error in ~A: report to dr.mtarver@ukonline.co.uk~%")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Func|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2862 2862 (DEFUN explode (X) ...)-293|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|explode| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|explode|
       #40Y(00 00 00 00 01 00 00 00 26 02 38 02 72 8F 00 10 00 AF 2F 01 10 02
            B4 B3 31 8D 11 AF 2F 03 11 AC 81 90 00 DE 32 3B 19 02)
       (|SYSTEM|::|*FORMAT-CS*| |SYSTEM|::|STREAM-START-S-EXPRESSION|
        |COMMON-LISP|::|*PRINT-RIGHT-MARGIN*|
        |SYSTEM|::|STREAM-END-S-EXPRESSION| |COMMON-LISP|::|LIST|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|X|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2864 2865 (DEFUN head (X) ...)-294|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|head| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|head|
       #21Y(00 00 00 00 01 00 00 00 26 02 9E 20 04 9E 5B 19 02 DA 33 00 1E)
       ("head expects a non-empty list.~% ")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|X|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2867 2868 (DEFUN tail (X) ...)-295|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|tail| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|tail|
       #21Y(00 00 00 00 01 00 00 00 26 02 9E 20 04 9E 5C 19 02 DA 33 00 1E)
       ("tail expects a non-empty list.~% ")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|X|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2870 2883 (DEFUN save NIL ...)-296|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|save| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|save| #17Y(00 00 00 00 00 00 00 00 26 01 00 0F 00 2E 01 19 01)
       (|qi|::|*history*| |EXT|::|SAVEINITMEM|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2885 2895 (DEFUN quit NIL ...)-297|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|quit| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|quit| #14Y(00 00 00 00 00 00 00 00 26 01 2E 00 19 01)
       (|EXT|::|EXIT|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2897 2899 (DEFUN read-char (X) ...)-298|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|read-char| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|read-char| #16Y(00 00 00 00 01 00 00 00 26 02 38 04 31 83 19 02)
       () (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|X|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2901 2902 (DEFUN read-chars-as-stringlist (V164 V165) ...)-299|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|read-chars-as-stringlist| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|read-chars-as-stringlist|
       #19Y(00 00 00 00 02 00 00 00 26 03 AE 01 02 B0 2D 04 00 19 03)
       (|qi|::|read-chars-as-stringlist*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V164| |qi|::|V165|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2904 2914 (DEFUN read-chars-as-stringlist* (V192 V193 V194 ...) ...)-300|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|read-chars-as-stringlist*| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|read-chars-as-stringlist*|
       #81Y(00 00 00 00 04 00 00 00 26 05 92 04 25 AF 72 63 DA 72 3B A0 7A 32
            63 19 05 AC 00 1B 27 B1 6F 03 24 02 76 AC 63 B3 72 63 DA 72 3B A4
            5D 1B 17 93 04 5B A1 20 17 94 04 95 05 AF AE 70 01 24 02 5D AC AE
            A4 5D 14 A3 14 B2 29 04 0B 63 DE 2F 05 19 05)
       (|COMMON-LISP|::|STRING| |qi|::|apply| |qi|::|true| |qi|::|empty?|
        |qi|::|read-chars-as-stringlist*| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V192| |qi|::|V193| |qi|::|V194| |qi|::|V195|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2916 2916 (DEFUN make-array (dims) ...)-301|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|make-array| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|make-array|
       #19Y(00 00 00 00 01 00 00 00 26 02 AD 38 07 C5 FC 31 1D 19 02)
       (#\Escape)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|dims|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2918 2920 (DEFUN get-array (array dims default) ...)-302|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|get-array| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|get-array|
       #26Y(00 00 00 00 03 00 00 00 26 04 DA B0 A1 5D 77 00 AC 24 01 03 15 19
            04 9F 19 05)
       (#.#'|COMMON-LISP|::|AREF| #\Escape)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|array| |qi|::|dims| |qi|::|default|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2922 2923 (DEFUN put-array (array dims value) ...)-303|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|put-array| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|put-array|
       #24Y(00 00 00 00 03 00 00 00 26 04 AF A0 7A DA AD B0 00 7A 33 02 23 9B
            00 05)
       (#.#'|SYSTEM|::|STORE|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|array| |qi|::|dims| |qi|::|value|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2925 2925 (DEFUN put-prop (Ob Pointer Value) ...)-304|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|put-prop| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|put-prop|
       #17Y(00 00 00 00 03 00 00 00 26 04 AF AF AF 32 A2 19 04) ()
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Ob| |qi|::|Pointer| |qi|::|Value|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2927 2927 (DEFUN get-prop (Ob Pointer Default) ...)-305|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|get-prop| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|get-prop|
       #17Y(00 00 00 00 03 00 00 00 26 04 AF AF AF 32 9E 19 04) ()
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|Ob| |qi|::|Pointer| |qi|::|Default|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2929 2938 (DEFUN typechecks? (V1 V2 V3) ...)-306|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|typechecks?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|typechecks?|
       #68Y(00 00 00 00 03 00 00 00 26 04 9F 20 07 94 02 6F 00 88 01 2A AE 6F
            03 6F 04 6F 05 00 2B 01 AF 2F 06 0B 00 00 B1 6F 07 AE E2 68 03 00
            00 5D 5D 7A AD AF 6D 09 01 6E 03 0A 93 00 06 15 19 07 C7 19 04 D0
            19 08)
       (|qi|::|exempted?| |qi|::|wrapper| |qi|::|unit| |qi|::|list->cons|
        |qi|::|curry| |qi|::|cons->@c| |qi|::|normalise_type|
        |qi|::|normalise_type_env| |qi|::|$$|
        #Y(|qi|::|typechecks?-1|
           #18Y(00 00 00 00 00 00 00 00 26 01 69 00 01 64 30 01 19 01)
           (|COMMON-LISP|::|NIL| |qi|::|return*|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
           |COMMON-LISP|::|NIL| 1)
        |qi|::|typecheck*| |qi|::|false|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V1| |qi|::|V2| |qi|::|V3|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2940 2941 (DEFUN exempted? (V) ...)-307|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|exempted?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|exempted?|
       #17Y(00 00 00 00 01 00 00 00 26 02 AD 6B 00 30 01 19 02)
       (|qi|::|*exempted*| |qi|::|element?|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|V|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2943 2943 (SETQ *exempted* '(defcc datatype theory ...))-308|
   #15Y(00 00 00 00 00 00 00 00 20 01 C5 0F 01 19 01)
   ((|qi|::|defcc| |qi|::|datatype| |qi|::|theory| |qi|::|structure|
     |qi|::|synonyms| |qi|::|quit| |qi|::|abstype| |qi|::|defprolog|)
    |qi|::|*exempted*|)
   (|COMMON-LISP|::|NIL| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2945 2951 (DEFUN normalise_type_env (V6041) ...)-309|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|normalise_type_env| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|normalise_type_env|
       #68Y(00 00 00 00 01 00 00 00 26 02 93 01 1E 9E 20 15 9E 5C 20 11 9E 5C
            78 25 00 0B 9E 5C 5C 20 06 9E 5C 5C 5C 1D 09 9E 21 15 9E 19 02 00
            19 02 94 01 DA A0 5C 5C 78 6F 01 00 5D 5D 5D 19 02 DC AE 33 00 16
            19 02)
       (|qi|::|$$| |qi|::|normalise_type| |qi|::|normalise_type_env|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6041|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2953 2961 (DEFUN list->cons (V6043) ...)-310|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|list->cons| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|list->cons|
       #69Y(00 00 00 00 01 00 00 00 26 02 9E 20 09 94 01 25 00 04 9E 5C 1D 12
            9E 20 09 94 01 25 00 04 9E 5C 21 09 9E 21 19 9E 19 02 00 19 02 95
            01 DB 94 01 6C 58 DA A0 5C 7A 6C 52 00 5D 5D 5D 19 03 DC AE 33 00
            16 19 02)
       (|qi|::|list| |qi|::|cons| |qi|::|list->cons|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6043|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2963 2963 (DEFUN to-goals (V3377 V3378) ...)-311|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|to-goals| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|to-goals|
       #19Y(00 00 00 00 02 00 00 00 26 03 AE AE 63 00 5D 5D 5D 19 03) ()
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|V3377| |qi|::|V3378|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2965 2968 (DEFUN from-goals (V4484) ...)-312|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|from-goals| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|from-goals|
       #31Y(00 00 00 00 01 00 00 00 26 02 9E 20 04 9E 5C 21 05 DB 2F 02 19 02
            94 01 9F 5C 78 30 00 19 02)
       (|qi|::|@p| |qi|::|from-goals| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V4484|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2970 2972 (DEFUN notes-in (V6055) ...)-313|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|notes-in| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|notes-in|
       #27Y(00 00 00 00 01 00 00 00 26 02 9E 20 04 9E 5C 21 05 DA 2F 01 19 02
            9E 5C 5B 19 02)
       (|qi|::|notes-in| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6055|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2974 2976 (DEFUN normalise_type (V6056) ...)-314|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|normalise_type| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|normalise_type|
       #28Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 AC AF 70 01 24 02 05 AC 29
            01 04 71 9F 19 03)
       (|qi|::|normalise_type*| |qi|::|qi_=| |qi|::|true|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6056|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2978 2988 (DEFUN normalise_type* (V169) ...)-315|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|normalise_type*| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|normalise_type*|
       #77Y(00 00 00 00 01 00 00 00 26 02 9E 20 14 94 01 25 00 0F 9E 5C 20 0B
            9E 5C 5C 20 06 9E 5C 5C 5C 1D 13 9E 21 20 AD 6B 04 70 05 AC 6F 06
            24 07 1B 9D 5C 5B 19 03 95 01 DB 94 01 6C 4F 9F 5C 78 28 4A 5D 5D
            19 03 DC AE 30 03 19 02 9F 19 03)
       (|qi|::|cons| |qi|::|list| |qi|::|normalise_type*| |qi|::|map|
        |qi|::|*synonyms*| |qi|::|assoc| |qi|::|empty?| |qi|::|true|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V169|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2990 2990 (SETQ *synonyms* NIL)-316|
   #15Y(00 00 00 00 00 00 00 00 20 01 00 0F 00 19 01) (|qi|::|*synonyms*|)
   (|COMMON-LISP|::|NIL| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2991 2991 (SETQ *allsynonyms* NIL)-317|
   #15Y(00 00 00 00 00 00 00 00 20 01 00 0F 00 19 01) (|qi|::|*allsynonyms*|)
   (|COMMON-LISP|::|NIL| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2993 2993 (DEFMACRO synonyms (&REST X) ...)-318|
   #23Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC DD 72 4C 32 9C C5 19 01)
   (|qi|::|synonyms| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|synonyms|
       #21Y(00 00 00 00 02 00 00 00 26 03 95 02 DA DB AE 7B 02 61 02 19 04)
       (|qi|::|synonym-help| |COMMON-LISP|::|QUOTE|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|SYSTEM|::|<MACRO-FORM>| |SYSTEM|::|<ENV-ARG>|) |COMMON-LISP|::|NIL| 1)
    (|COMMON-LISP|::|&REST| |qi|::|X|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|2995 3002 (DEFUN synonym-help (V5368) ...)-319|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|synonym-help| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|synonym-help|
       #58Y(00 00 00 00 01 00 00 00 26 02 92 01 19 C5 19 02 95 01 94 02 94 01
            6B 03 6B 04 2D 04 05 95 00 29 01 04 00 93 01 67 9E 20 0C 9E 5C 20
            08 9E 5C 79 6F 01 88 02 5B E0 2F 07 19 02)
       (|qi|::|compiled| |qi|::|even?| |qi|::|wrapper| |qi|::|*synonyms*|
        |qi|::|*allsynonyms*| |qi|::|compile-synonym|
        "Odd number of elements in synonyms declaration.~%" |qi|::|error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5368|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3004 3007 (DEFUN even? (V5378) ...)-320|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|even?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|even?|
       #36Y(00 00 00 00 01 00 00 00 26 02 92 01 0D C5 19 02 9E 5C 79 29 01 03
            00 93 01 73 9E 20 04 9E 5C 21 6F C6 19 02)
       (|qi|::|true| |qi|::|false|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5378|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3009 3013 (DEFUN compile-synonym (V5379 V5380 V5381 ...) ...)-321|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|compile-synonym| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|compile-synonym|
       #44Y(00 00 00 00 04 00 00 00 26 05 B0 6F 00 24 01 0A DF 6B 06 B2 B2 33
            03 15 19 05 B0 B0 6F 02 00 5D 7A A0 5D 0F 03 B0 9F 5D 0F 04 19 05)
       (|qi|::|test-valid-synonym?| |qi|::|true| |qi|::|curry_type|
        |qi|::|*synonyms*| |qi|::|*allsynonyms*|
        #Y(|qi|::|compile-synonym-1|
           #43Y(00 00 00 00 03 00 00 00 21 19 00 10 00 DB B4 38 02 31 95 B2 B4
                31 90 DC B4 38 02 31 95 B1 B4 31 90 DD B4 38 02 31 95 A1 11 19
                05)
           (|SYSTEM|::|*FORMAT-CS*| "Skipping " " with "
            "; invalid synonym.\n")
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        |COMMON-LISP|::|*STANDARD-OUTPUT*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5379| |qi|::|V5380| |qi|::|V5381| |qi|::|V5382|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3015 3026 (DEFUN test-valid-synonym? (V5383) ...)-322|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|test-valid-synonym?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|test-valid-synonym?|
       #75Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 6F 01 88 02 15 AD 6F 04 88
            02 12 AD 6F 05 88 02 0F AD 6F 06 24 07 0C CC 19 02 C8 19 02 C8 19
            02 C8 19 02 38 02 72 8F 00 10 08 B1 B0 31 90 E3 B0 38 02 31 95 11
            AC 81 90 00 2F 0A CC 19 02)
       (|qi|::|symbol?| |qi|::|not| |qi|::|wrapper| |qi|::|false|
        |qi|::|variable?| |qi|::|system_type?| |qi|::|predefined_type?|
        |qi|::|true| |SYSTEM|::|*FORMAT-CS*|
        " is already given a synonym; overwriting old definition.\n"
        |qi|::|warn|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5383|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3028 3028 (DEFUN predefined_type? (V5384) ...)-323|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|predefined_type?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|predefined_type?|
       #17Y(00 00 00 00 01 00 00 00 26 02 AD 6B 00 30 01 19 02)
       (|qi|::|*allsynonyms*| |qi|::|element?|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5384|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3030 3041 (DEFUN system_type? (V5386) ...)-324|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|system_type?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|system_type?|
       #38Y(00 00 00 00 01 00 00 00 26 02 AD DA DB DC DD DE DF E0 E1 E2 E3 E4
            00 5D 5D 5D 5D 5D 5D 5D 5D 5D 5D 7A 30 0B 19 02)
       (|qi|::|list| |qi|::|array| |COMMON-LISP|::|*| |qi|::|-->| |qi|::|goals|
        |qi|::|symbol| |qi|::|unit| |qi|::|character| |qi|::|string|
        |qi|::|number| |qi|::|boolean| |qi|::|element?|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5386|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3043 3044 (DEFUN theory-size (V6066) ...)-325|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|theory-size| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|theory-size|
       #21Y(00 00 00 00 01 00 00 00 26 02 DA AE 72 A5 71 A0 33 02 39 19 02)
       (#10r1/2) (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|V6066|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3046 3046 (DEFUN maxinferences (V6067) ...)-326|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|maxinferences| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|maxinferences| #15Y(00 00 00 00 01 00 00 00 26 02 9E 0F 00 19 02)
       (|qi|::|*maxinferences*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6067|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3048 3048 (SETQ *maxinferences* 1000000)-327|
   #15Y(00 00 00 00 00 00 00 00 20 01 C5 0F 01 19 01)
   (1000000. |qi|::|*maxinferences*|)
   (|COMMON-LISP|::|NIL| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3050 3050 (DEFUN get-rule (V6075 V6076) ...)-328|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|get-rule| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|get-rule|
       #18Y(00 00 00 00 02 00 00 00 26 03 AE AE DA 2D 03 01 19 03)
       (|qi|::|identity| |qi|::|get-prop|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6075| |qi|::|V6076|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3052 3052 (DEFUN identity (V6077) ...)-329|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|identity| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|identity| #13Y(00 00 00 00 01 00 00 00 26 02 9E 19 02) ()
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|V6077|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3054 3067 (DEFUN curry (V6078) ...)-330|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|curry| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|curry|
       #114Y(00 00 00 00 01 00 00 00 26 02 9E 20 1A 94 01 25 00 15 9E 5C 20 11
             9E 5C 78 25 01 0B 9E 5C 5C 20 06 9E 5C 5C 5C 1D 1D 9E 20 07 94 01
             6F 02 88 03 16 9E 20 09 9E 5C 20 05 9E 5C 5C 1D 14 9E 20 04 9E 5C
             21 1D 9E 19 02 94 01 DE 95 03 33 00 16 1B 0D 94 01 6C FF B4 9F 5C
             78 6C FF AE 00 5D 5D 19 02 95 01 94 02 94 01 00 5D 7A 9E 5C 7A 29
             01 04 FF 98)
       (|qi|::|input+| |qi|::|$$| |qi|::|special_form?| |qi|::|wrapper|
        |qi|::|curry|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6078|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3069 3075 (DEFUN map_base_type (V6084) ...)-331|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|map_base_type| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|map_base_type|
       #58Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 88 01 1B AD 6F 03 88 01 18
            AD 6F 05 88 01 15 AD 6F 07 88 01 12 AD 6F 09 88 01 0F 00 19 02 C7
            19 02 C9 19 02 CB 19 02 CD 19 02 CF 19 02)
       (|qi|::|symbol?| |qi|::|wrapper| |qi|::|symbol| |qi|::|string?|
        |qi|::|string| |qi|::|number?| |qi|::|number| |qi|::|character?|
        |qi|::|character| |qi|::|boolean?| |qi|::|boolean|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6084|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3077 3082 (DEFUN symbol? (X) ...)-332|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|symbol?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|symbol?|
       #31Y(00 00 00 00 01 00 00 00 26 02 AD 8F 18 0B AD DA 38 03 8C C1 04 AD
            89 01 03 C8 19 02 C7 19 02)
       ((|qi|::|true| |qi|::|false| |COMMON-LISP|::|NIL|) |qi|::|place_holder?|
        |qi|::|true| |qi|::|false|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|X|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3084 3088 (DEFUN place_holder? (X) ...)-333|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|place_holder?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|place_holder?|
       #44Y(00 00 00 00 01 00 00 00 26 02 AD 72 A6 AC 72 62 DA 33 01 32 1F 14
            DB AD DC 71 31 33 01 0D 1F 0A DB AD DD 71 31 33 01 0D 19 03 19 03)
       (2. #\& 0. 1.)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|X|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3090 3090 (DEFUN special_form? (V6085) ...)-334|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|special_form?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|special_form?|
       #17Y(00 00 00 00 01 00 00 00 26 02 AD 6B 00 30 01 19 02)
       (|qi|::|*special_forms*| |qi|::|element?|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6085|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3092 3092 (DEFUN specialise (V6087) ...)-335|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|specialise| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|specialise|
       #19Y(00 00 00 00 01 00 00 00 26 02 AD 0E 00 5D 0F 00 9E 19 02)
       (|qi|::|*special_forms*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6087|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3094 3095 (DEFUN unspecialise (V6088) ...)-336|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|unspecialise| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|unspecialise|
       #22Y(00 00 00 00 01 00 00 00 26 02 AD 6B 00 38 07 32 69 0F 00 9E 19 02)
       (|qi|::|*special_forms*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6088|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3097 3098 (DEFVAR *special_forms* '(cons let /. ...))-337|
   #24Y(00 00 00 00 00 00 00 00 20 01 DA 31 62 DB 8C 57 04 DB DC 31 5A C6 19
        01)
   ((|COMMON-LISP|::|SPECIAL| |qi|::|*special_forms*|) |qi|::|*special_forms*|
    (|qi|::|cons| |qi|::|let| |qi|::|/.| |qi|::|output| |qi|::|error|
     |qi|::|qi_=| |qi|::|newfuntype| |qi|::|if| |qi|::|set| |qi|::|do|
     |qi|::|where| |qi|::|cases| |qi|::|@p| |qi|::|list| |qi|::|make-string|
     |qi|::|@c|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3100 3104 (DEFUN occurs? (V6298 V6299) ...)-338|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|occurs?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|occurs?|
       #70Y(00 00 00 00 02 00 00 00 26 03 AE AE 70 00 88 01 16 9E 20 2F AE 94
            02 6C 71 AC 24 02 0D AC 24 03 12 C9 14 AD 33 01 1E C7 19 03 C7 19
            04 C7 19 05 C8 19 05 AF 95 03 6C 52 AC 24 02 71 AC 24 03 70 C9 1B
            5F C8 19 03)
       (|qi|::|qi_=| |qi|::|wrapper| |qi|::|true| |qi|::|false|
        "~S is not a boolean~%")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6298| |qi|::|V6299|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3106 3115 (DEFUN qi NIL ...)-339|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|qi| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|qi|
       #26Y(00 00 00 00 00 00 00 00 26 01 2E 00 2E 01 2E 02 2E 03 38 01 31 9B
            2E 04 1B 74)
       (|qi|::|licence| |qi|::|credit| |qi|::|initialise_environment|
        |qi|::|prompt| |qi|::|read-evaluate-print|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3117 3122 (DEFUN read-evaluate-print NIL ...)-340|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|read-evaluate-print| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|read-evaluate-print|
       #47Y(02 00 01 00 00 00 00 00 26 01 63 4B 00 19 57 01 2E 02 14 2E 03 AC
            2F 04 16 05 1B 10 58 9D 0A 00 00 04 4F 00 00 02 00 B0 38 01 31 90
            4D 19 02)
       (#(|COMMON-LISP|::|NIL|) (#(|COMMON-LISP|::|ERROR| 18.) 1. . 1.)
        |qi|::|lineread| |qi|::|record_input_on_history| |qi|::|toplevel|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3124 3136 (DEFUN licence NIL ...)-341|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|licence| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|licence|
       #97Y(00 00 00 00 00 00 00 00 26 01 0E 00 1C 80 4F DB 6B 02 33 01 15 DD
            6B 02 33 01 15 DE 6B 02 33 01 15 DF 6B 02 33 01 15 E0 6B 02 33 01
            15 E1 6B 02 33 01 15 38 04 71 7F AC 24 08 12 AC 24 0A 12 AC 24 0C
            12 E8 6B 02 33 01 15 29 00 02 0C 2E 09 19 02 2E 0B 19 02 2E 0D 19
            02 0E 00 1D FF B1 00 19 01)
       (|qi|::|*licence*|
        #Y(|qi|::|licence-1|
           #23Y(00 00 00 00 01 00 00 00 21 17 00 10 00 DB B2 38 02 31 95 A1 11
                19 03)
           (|SYSTEM|::|*FORMAT-CS*|
            "\n
Qi is distributed without warranty under the terms of the GPL licence.\n")
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        |COMMON-LISP|::|*STANDARD-OUTPUT*|
        #Y(|qi|::|licence-2|
           #23Y(00 00 00 00 01 00 00 00 21 17 00 10 00 DB B2 38 02 31 95 A1 11
                19 03)
           (|SYSTEM|::|*FORMAT-CS*|
            "You may not change or remove any copyright notices attached to this software.\n\n")
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        #Y(|qi|::|licence-3|
           #23Y(00 00 00 00 01 00 00 00 21 17 00 10 00 DB B2 38 02 31 95 A1 11
                19 03)
           (|SYSTEM|::|*FORMAT-CS*|
            "1. I agree to the terms of the GPL licence.\n")
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        #Y(|qi|::|licence-4|
           #23Y(00 00 00 00 01 00 00 00 21 17 00 10 00 DB B2 38 02 31 95 A1 11
                19 03)
           (|SYSTEM|::|*FORMAT-CS*|
            "2. I do not agree to the terms of the GPL licence.\n")
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        #Y(|qi|::|licence-5|
           #23Y(00 00 00 00 01 00 00 00 21 17 00 10 00 DB B2 38 02 31 95 A1 11
                19 03)
           (|SYSTEM|::|*FORMAT-CS*|
            "3. I want to read the GPL licence and come back to this.\n\n")
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        #Y(|qi|::|licence-6|
           #23Y(00 00 00 00 01 00 00 00 21 17 00 10 00 DB B2 38 02 31 95 A1 11
                19 03)
           (|SYSTEM|::|*FORMAT-CS*| "Choose: ")
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        1. |qi|::|agree| 2. |qi|::|disagree| 3. |qi|::|lookat-GPL|
        #Y(|qi|::|licence-7|
           #23Y(00 00 00 00 01 00 00 00 21 17 00 10 00 DB B2 38 02 31 95 A1 11
                19 03)
           (|SYSTEM|::|*FORMAT-CS*|
            "\n\n
This is not a valid answer.\n\n")
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)))
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3138 3138 (SETQ *licence* NIL)-342|
   #15Y(00 00 00 00 00 00 00 00 20 01 00 0F 00 19 01) (|qi|::|*licence*|)
   (|COMMON-LISP|::|NIL| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3140 3144 (DEFUN agree NIL ...)-343|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|agree| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|agree|
       #29Y(00 00 00 00 00 00 00 00 26 01 DA 6B 01 33 01 15 DC 6B 01 33 01 15
            02 0F 03 2E 04 19 01)
       (#Y(|qi|::|agree-1|
           #23Y(00 00 00 00 01 00 00 00 21 17 00 10 00 DB B2 38 02 31 95 A1 11
                19 03)
           (|SYSTEM|::|*FORMAT-CS*|
            "\n
Thankyou.  Qi will be initialised to accept your agreement.\n")
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        |COMMON-LISP|::|*STANDARD-OUTPUT*|
        #Y(|qi|::|agree-2|
           #23Y(00 00 00 00 01 00 00 00 21 17 00 10 00 DB B2 38 02 31 95 A1 11
                19 03)
           (|SYSTEM|::|*FORMAT-CS*| "You will not be queried again.\n")
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        |qi|::|*licence*| |qi|::|save|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3146 3147 (DEFUN disagree NIL ...)-344|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|disagree| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|disagree| #14Y(00 00 00 00 00 00 00 00 26 01 2E 00 19 01)
       (|qi|::|quit|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3149 3151 (DEFUN lookat-GPL NIL ...)-345|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|lookat-GPL| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|lookat-GPL|
       #17Y(00 00 00 00 00 00 00 00 26 01 DA 2F 01 2E 02 19 01)
       ("GPL.txt" |COMMON-LISP|::|ED| |qi|::|licence|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3153 3154 (DEFUN record_input_on_history NIL ...)-346|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|record_input_on_history| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|record_input_on_history|
       #21Y(00 00 00 00 00 00 00 00 26 01 6B 00 72 64 0E 01 5D 0F 01 19 01)
       (|qi|::|*read-user-input-characters*| |qi|::|*history*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3156 3161 (DEFUN initialise_environment NIL ...)-347|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|initialise_environment| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|initialise_environment|
       #28Y(00 00 00 00 00 00 00 00 26 01 C5 0F 01 0F 02 DD 6B 04 33 00 18 00
            0F 04 0F 05 19 01)
       (0. |qi|::|*call*| |qi|::|*logical-inferences*| |qi|::|destroy|
        |qi|::|*tempsigs*| |qi|::|*read-user-input-characters*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3163 3163 (DEFUN version (String) ...)-348|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|version| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|version| #15Y(00 00 00 00 01 00 00 00 26 02 9E 0F 00 19 02)
       (|qi|::|*version*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|String|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3165 3165 (SETQ *version* "version 9.2 (Turbo-E)")-349|
   #15Y(00 00 00 00 00 00 00 00 20 01 C5 0F 01 19 01)
   ("version 9.2 (Turbo-E)" |qi|::|*version*|)
   (|COMMON-LISP|::|NIL| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3167 3170 (DEFUN credit NIL ...)-350|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|credit| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|credit|
       #32Y(00 00 00 00 00 00 00 00 26 01 DA 6B 01 33 01 15 DC 6B 01 33 01 15
            DD 6B 01 6B 04 33 02 15 19 01)
       (#Y(|qi|::|credit-1|
           #23Y(00 00 00 00 01 00 00 00 21 17 00 10 00 DB B2 38 02 31 95 A1 11
                19 03)
           (|SYSTEM|::|*FORMAT-CS*|
            "\n
Qi 2007, Copyright (C) 2001-2007 Mark Tarver\n")
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        |COMMON-LISP|::|*STANDARD-OUTPUT*|
        #Y(|qi|::|credit-2|
           #23Y(00 00 00 00 01 00 00 00 21 17 00 10 00 DB B2 38 02 31 95 A1 11
                19 03)
           (|SYSTEM|::|*FORMAT-CS*| "www.lambdassociates.org\n")
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        #Y(|qi|::|credit-3|
           #24Y(00 00 00 00 02 00 00 00 21 18 00 10 00 B1 B3 31 90 B2 31 97 A1
                11 19 04)
           (|SYSTEM|::|*FORMAT-CS*|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        |qi|::|*version*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3172 3172 (DEFVAR *tc* 'false)-351|
   #24Y(00 00 00 00 00 00 00 00 20 01 DA 31 62 DB 8C 57 04 DB DC 31 5A C6 19
        01)
   ((|COMMON-LISP|::|SPECIAL| |qi|::|*tc*|) |qi|::|*tc*| |qi|::|false|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3174 3174 (DEFVAR *history* NIL)-352|
   #24Y(00 00 00 00 00 00 00 00 20 01 DA 31 62 DB 8C 57 04 DB 63 31 5A C6 19
        01)
   ((|COMMON-LISP|::|SPECIAL| |qi|::|*history*|) |qi|::|*history*|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3176 3179 (DEFUN tc (V6583) ...)-353|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|tc| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|tc|
       #31Y(00 00 00 00 01 00 00 00 26 02 AD 24 00 09 AD 25 03 08 C9 0F 02 19
            02 C6 1B 79 DF 2F 06 19 02)
       (|COMMON-LISP|::|+| |qi|::|true| |qi|::|*tc*| |COMMON-LISP|::|-|
        |qi|::|false| "tc expects a + or -" |qi|::|error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6583|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3181 3183 (DEFUN prompt NIL ...)-354|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|prompt| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|prompt|
       #31Y(00 00 00 00 00 00 00 00 26 01 6B 00 24 01 0D CB 14 6B 03 6B 04 6F
            05 33 02 15 19 01 C7 1B 71)
       (|qi|::|*tc*| |qi|::|true|
        #Y(|qi|::|prompt-1|
           #33Y(00 00 00 00 02 00 00 00 21 18 00 10 00 DB B3 38 02 31 95 B1 B3
                31 90 DC B3 38 02 31 95 A1 11 19 04)
           (|SYSTEM|::|*FORMAT-CS*|
            "\n\n
("
            "+) ")
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        |COMMON-LISP|::|*STANDARD-OUTPUT*| |qi|::|*history*| |qi|::|length|
        #Y(|qi|::|prompt-2|
           #33Y(00 00 00 00 02 00 00 00 21 18 00 10 00 DB B3 38 02 31 95 B1 B3
                31 90 DC B3 38 02 31 95 A1 11 19 04)
           (|SYSTEM|::|*FORMAT-CS*|
            "\n\n
("
            "-) ")
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)))
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3185 3187 (DEFUN toplevel (V5423) ...)-355|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|toplevel| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|toplevel|
       #28Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 88 01 05 AD 2F 03 19 02 AD
            6F 02 29 01 03 6E)
       (|qi|::|history-call?| |qi|::|wrapper| |qi|::|call_history|
        |qi|::|toplevel_evaluate|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5423|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3189 3194 (DEFUN history-call? (V5428) ...)-356|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|history-call?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|history-call?|
       #43Y(00 00 00 00 01 00 00 00 26 02 9E 20 0B 9E 5C 1C 07 94 01 6F 00 88
            01 03 CC 19 02 94 01 6F 02 AC 6F 03 DE DF 00 5D 7A 30 06 19 03)
       (|qi|::|symbol?| |qi|::|wrapper| |qi|::|explode| |qi|::|head| #\! #\%
        |qi|::|element?| |qi|::|false|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5428|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3196 3201 (DEFUN call_history (V5440) ...)-357|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|call_history| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|call_history|
       #39Y(00 00 00 00 01 00 00 00 26 02 9E 20 04 9E 5C 1D 05 DD 2F 04 19 02
            0E 00 5C 0F 00 94 01 6F 01 6F 02 6B 00 36 01 19 02)
       (|qi|::|*history*| |qi|::|explode| |qi|::|findcallfunc|
        |qi|::|call_history| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5440|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3203 3224 (DEFUN findcallfunc (V5360) ...)-358|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|findcallfunc| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|findcallfunc|
       #156Y(00 00 00 00 01 00 00 00 26 02 9E 20 14 94 01 25 00 0F 9E 5C 20 0B
             9E 5C 78 25 00 05 9E 5C 5C 1D 21 9E 20 09 94 01 25 02 04 9E 5C 1D
             18 9E 20 05 94 01 24 00 19 9E 20 05 94 01 24 02 3B E5 2F 0C 19 02
             C6 19 02 C8 19 02 AC 2C 07 01 19 04 00 2B 01 9F 5C 0B 00 00 9D 2B
             01 68 01 00 DE 72 3B 38 05 31 89 0B 00 00 14 6F 05 24 06 5C AC 2C
             08 01 19 04 AC 2C 09 01 19 04 00 2B 01 9F 5C 0B 00 00 9D 2B 01 68
             01 00 DE 72 3B 38 05 31 89 0B 00 00 14 6F 05 24 06 5C AC 2C 0A 01
             19 04)
       (#\!
        #Y(|qi|::|findcallfunc-1|
           #24Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 72 B2 DB AF 72 63 2D 03
                02 19 02)
           (|qi|::|length| 0. |qi|::|call_by_number|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
           (|qi|::|History|) |COMMON-LISP|::|NIL| 1)
        #\%
        #Y(|qi|::|findcallfunc-2|
           #18Y(00 00 00 00 01 00 00 00 26 02 AD 72 63 DA 30 01 19 02)
           (0. |qi|::|print_all|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
           (|qi|::|History|) |COMMON-LISP|::|NIL| 1)
        |COMMON-LISP|::|STRING| |qi|::|integer?| |qi|::|true|
        #Y(|qi|::|findcallfunc-3|
           #22Y(00 00 00 00 01 00 00 00 26 02 69 00 01 DB AF 72 63 2D 03 02 19
                02)
           (|COMMON-LISP|::|NIL| 0. |qi|::|call_by_number|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
           (|qi|::|History|) |COMMON-LISP|::|NIL| 1)
        #Y(|qi|::|findcallfunc-4|
           #24Y(00 00 00 00 01 00 00 00 26 02 AD 6F 01 72 B2 69 01 01 AF 2D 03
                02 19 02)
           (|COMMON-LISP|::|NIL| |qi|::|length| |qi|::|call_by_name|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
           (|qi|::|History|) |COMMON-LISP|::|NIL| 1)
        #Y(|qi|::|findcallfunc-5|
           #22Y(00 00 00 00 01 00 00 00 26 02 69 00 01 DB AF 72 63 2D 03 02 19
                02)
           (|COMMON-LISP|::|NIL| 0. |qi|::|print_by_number|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
           (|qi|::|History|) |COMMON-LISP|::|NIL| 1)
        #Y(|qi|::|findcallfunc-6|
           #22Y(00 00 00 00 01 00 00 00 26 02 DB 69 01 01 AF 72 63 2D 03 02 19
                02)
           (|COMMON-LISP|::|NIL| 0. |qi|::|print_by_name|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
           (|qi|::|History|) |COMMON-LISP|::|NIL| 1)
        |qi|::|findcallfunc| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5360|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3226 3232 (DEFUN print_by_name (V5381 V5382 V5383) ...)-359|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|print_by_name| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|print_by_name|
       #44Y(00 00 00 00 03 00 00 00 26 04 9E 20 18 AE 94 02 6F 00 70 01 89 02
            0E AF 94 02 30 03 96 03 AF 95 03 29 03 07 65 9E 21 74 DE 33 00 1E)
       (|qi|::|tail| |qi|::|prefix?| |qi|::|wrapper| |qi|::|print_command| "")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5381| |qi|::|V5382| |qi|::|V5383|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3234 3239 (DEFUN print_all (V5450 V5451) ...)-360|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|print_all| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|print_all|
       #41Y(00 00 00 00 02 00 00 00 26 03 92 02 14 DA 33 00 1E AD 94 03 30 01
            95 02 96 02 29 02 05 00 93 02 6C 9F 21 6D DC 2F 03 19 03)
       ("" |qi|::|print_command| |qi|::|print_all|
        |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5450| |qi|::|V5451|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3241 3242 (DEFUN print_command (V5452 V5453) ...)-361|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|print_command| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|print_command|
       #27Y(00 00 00 00 02 00 00 00 26 03 DA 6B 01 B0 B0 38 01 71 B2 DC 72 3B
            33 03 15 19 03)
       (#Y(|qi|::|print_command-1|
           #34Y(00 00 00 00 03 00 00 00 21 19 00 10 00 B3 31 97 B2 B4 31 90 DB
                B4 38 02 31 95 B1 B4 31 90 A1 11 19 05)
           (|SYSTEM|::|*FORMAT-CS*| ". ")
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        |COMMON-LISP|::|*STANDARD-OUTPUT*| |COMMON-LISP|::|STRING|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5452| |qi|::|V5453|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3244 3249 (DEFUN print_by_number (V5471 V5472 V5473) ...)-362|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|print_by_number| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|print_by_number|
       #46Y(00 00 00 00 03 00 00 00 26 04 9E 20 07 AF AF 70 00 88 01 08 9E 21
            0E DE 2F 05 19 04 AE 94 02 30 02 DD 33 00 1E AF 96 03 95 03 29 03
            07 5C)
       (|qi|::|qi_=| |qi|::|wrapper| |qi|::|print_command| ""
        "number out of range~%" |qi|::|error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5471| |qi|::|V5472| |qi|::|V5473|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3251 3258 (DEFUN call_by_number (V5504 V5505 V5506) ...)-363|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|call_by_number| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|call_by_number|
       #52Y(00 00 00 00 03 00 00 00 26 04 9E 20 07 AF AF 70 00 88 01 08 9E 21
            14 DE 2F 05 19 04 AF 94 02 30 02 38 01 31 97 94 01 2F 03 19 04 AF
            96 03 95 03 29 03 07 56)
       (|qi|::|qi_=| |qi|::|wrapper| |qi|::|print_command|
        |qi|::|return_past_command| "number out of range~%" |qi|::|error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5504| |qi|::|V5505| |qi|::|V5506|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3260 3267 (DEFUN call_by_name (N V5518 V5519) ...)-364|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|call_by_name| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|call_by_name|
       #55Y(00 00 00 00 03 00 00 00 26 04 9E 20 0A AE 94 02 6F 00 70 01 88 02
            08 9E 21 14 DF 2F 06 19 04 AF 94 02 30 03 38 01 31 97 94 01 2F 04
            19 04 97 03 AF 95 03 29 03 07 53)
       (|qi|::|tail| |qi|::|prefix?| |qi|::|wrapper| |qi|::|print_command|
        |qi|::|return_past_command| "input not recorded~%" |qi|::|error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|N| |qi|::|V5518| |qi|::|V5519|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3269 3283 (DEFUN return_past_command (Chars) ...)-365|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|return_past_command| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|return_past_command|
       #56Y(00 00 00 00 01 00 00 00 26 02 AD 0E 00 5D 0F 00 DB AE DC 72 3B 38
            02 72 8D AC AD 01 02 38 01 71 83 DD DE DF DE 70 06 DF DE 70 06 E1
            E1 E2 2D 09 09 F8 33 00 16 3F 19 02)
       (|qi|::|*history*| |qi|::|macroexpand| |COMMON-LISP|::|STRING| (#\Space)
        1. 0. |qi|::|@p| |qi|::|false| |qi|::|eof?| |qi|::|read-user-input|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Chars|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3285 3308 (DEFUN toplevel_evaluate (V5366) ...)-366|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|toplevel_evaluate| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|toplevel_evaluate|
       #152Y(00 00 00 00 01 00 00 00 26 02 9E 20 0F 9E 5B 20 0B 9E 5B 78 25 00
             05 9E 5B 5C 21 2A 9E 20 15 9E 5C 20 11 9E 5C 78 25 08 0B 9E 5C 5C
             20 06 9E 5C 5C 5C 1D 3E 9E 20 80 5B 94 01 6B 01 24 02 20 AC 6F 03
             2F 07 19 03 94 01 6B 01 25 02 72 AC 6F 03 63 9F 5C 78 DE 6E 03 05
             30 06 19 03 D1 1B 0E 63 AD E8 6E 03 05 AC E4 70 0B 25 02 1F D4 14
             2F 0D 19 04 94 01 6B 01 25 02 46 63 AD A1 5C 5C 78 6F 09 6E 03 05
             AC E4 70 0B 24 02 51 AD 6F 03 AD 30 06 19 04 EA 2F 11 19 02)
       (|qi|::|define| |qi|::|*tc*| |qi|::|true| |qi|::|eval| |qi|::|Type|
        |qi|::|typechecks?| |qi|::|print-with-type| |qi|::|print| |qi|::|$$|
        |qi|::|curry_type| |qi|::|false| |qi|::|qi_=| "type error~%"
        |qi|::|error| |qi|::|A| "type error~%" |qi|::|toplevel_evaluate|
        |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5366|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3310 3312 (DEFUN print-with-type (V5595 V5596) ...)-367|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|print-with-type| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|print-with-type|
       #24Y(00 00 00 00 02 00 00 00 26 03 AE 2F 00 DB 6B 02 AF 6F 03 33 02 15
            19 03)
       (|qi|::|print|
        #Y(|qi|::|print-with-type-1|
           #27Y(00 00 00 00 02 00 00 00 21 18 00 10 00 DB B3 38 02 31 95 B1 B3
                31 90 A1 11 19 04)
           (|SYSTEM|::|*FORMAT-CS*| " : ")
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        |COMMON-LISP|::|*STANDARD-OUTPUT*| |qi|::|pretty_type|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5595| |qi|::|V5596|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3314 3321 (DEFUN prefix? (V125 V126) ...)-368|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|prefix?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|prefix?|
       #76Y(00 00 00 00 02 00 00 00 26 03 92 02 0F C5 19 03 9F 1B 2F 9F 1B 2C
            9F 1B 29 93 02 71 9E 20 05 94 01 24 01 6C 9E 20 05 94 01 24 02 67
            9E 20 05 94 01 24 03 62 9F 20 12 9E 20 0F 94 02 9F 5B 23 09 9F 5C
            14 95 02 29 02 05 50 C9 19 03)
       (|qi|::|true| #\Space #\Newline #\( |qi|::|false|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V125| |qi|::|V126|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3323 3323 (DEFUN store_in_history (X) ...)-369|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|store_in_history| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|store_in_history|
       #19Y(00 00 00 00 01 00 00 00 26 02 AD 0E 00 5D 0F 00 9E 19 02)
       (|qi|::|*history*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|X|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3325 3325 (DEFVAR *alphabet* '(A B C ...))-370|
   #24Y(00 00 00 00 00 00 00 00 20 01 DA 31 62 DB 8C 57 04 DB DC 31 5A C6 19
        01)
   ((|COMMON-LISP|::|SPECIAL| |qi|::|*alphabet*|) |qi|::|*alphabet*|
    (|qi|::|A| |qi|::|B| |qi|::|C| |qi|::|D| |qi|::|E| |qi|::|F| |qi|::|G|
     |qi|::|H| |qi|::|I| |qi|::|J| |qi|::|K| |qi|::|L| |qi|::|M| |qi|::|N|
     |qi|::|O| |qi|::|P| |qi|::|Q| |qi|::|R| |qi|::|S| |COMMON-LISP|::|T|
     |qi|::|U| |qi|::|V| |qi|::|W| |qi|::|X| |qi|::|Y| |qi|::|Z|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3327 3327 (DEFUN pretty_type (V6688) ...)-371|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|pretty_type| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|pretty_type|
       #21Y(00 00 00 00 01 00 00 00 26 02 6B 00 AE 6F 01 AF 2D 03 02 19 02)
       (|qi|::|*alphabet*| |qi|::|extract_variables| |qi|::|mult_subst|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6688|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3329 3333 (DEFUN mult_subst (V6693 V6694 V6695) ...)-372|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|mult_subst| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|mult_subst|
       #51Y(00 00 00 00 03 00 00 00 26 04 93 03 08 1B 03 93 03 03 92 02 13 9E
            19 04 95 03 95 03 94 05 94 05 B1 6E 03 00 29 03 07 67 A0 20 03 9F
            21 6A DB 2F 02 19 04)
       (|qi|::|subst| |qi|::|mult_subst| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6693| |qi|::|V6694| |qi|::|V6695|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3335 3335 (DEFUN track (V6696) ...)-373|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|track| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|track| #17Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 2F 01 19 02)
       (|qi|::|source_code| |qi|::|track_function|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6696|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3337 3340 (DEFUN source_code (V6697) ...)-374|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|source_code| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|source_code|
       #31Y(00 00 00 00 01 00 00 00 26 02 AD DA 63 6E 03 01 AC 6F 02 24 03 03
            15 19 02 DE AF 30 05 19 03)
       (|qi|::|source_code| |qi|::|get-prop| |qi|::|empty?| |qi|::|true|
        "you have not defined ~A in Qi~%" |qi|::|error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6697|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3342 3364 (DEFUN track_function (V23) ...)-375|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|track_function| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|track_function|
       #136Y(00 00 00 00 01 00 00 00 26 02 9E 20 16 9E 5C 20 12 9E 5C 5C 20 0D
             9E 5C 5C 5C 20 07 9E 5C 5C 5C 5C 1D 26 9E 20 1E 9E 5C 20 1A 9E 5C
             5C 20 15 9E 5C 5C 5C 20 0F 9E 5C 5C 5C 5C 20 08 9E 5C 5C 5C 5C 5C
             1D 22 DB 2F 02 19 02 95 01 94 00 95 01 94 00 94 05 AF AE B1 B0 A3
             5C 78 6E 03 00 00 5D 5D 5D 7A 31 63 19 06 95 01 94 00 95 01 94 00
             95 01 94 06 B0 AF 94 03 B3 B2 A3 5C 78 6E 03 00 00 5D 5D 5D 5D 7A
             31 63 19 07)
       (|qi|::|insert_tracking_code| |qi|::|track_function|
        |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|V23|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3367 3384 (DEFUN insert_tracking_code (V6704 V6705 V6706) ...)-376|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|insert_tracking_code| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|insert_tracking_code|
       #79Y(00 00 00 00 03 00 00 00 26 04 DA DB DC 00 5D 7A DD DC DE B4 00 5D
            7A DF A5 7A 00 5D 5D 5D 7A E0 00 7A E1 E2 B3 00 5D 7A 00 7A E3 DC
            DE B8 00 5D 7A E2 00 5D 5D 5D 7A E4 DC 00 5D 7A E0 00 7A E2 00 5D
            5D 5D 5D 5D 7A 00 5D 5D 5D 5D 5D 19 04)
       (|COMMON-LISP|::|PROGN| |COMMON-LISP|::|INCF| |qi|::|*call*|
        |qi|::|input_track| |COMMON-LISP|::|QUOTE| |COMMON-LISP|::|LIST|
        |qi|::|terpri_or_read_char| |COMMON-LISP|::|LET| |qi|::|RESULT|
        |qi|::|output_track| |COMMON-LISP|::|DECF|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|V6704| |qi|::|V6705| |qi|::|V6706|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3386 3386 (DEFVAR *step* 'false)-377|
   #24Y(00 00 00 00 00 00 00 00 20 01 DA 31 62 DB 8C 57 04 DB DC 31 5A C6 19
        01)
   ((|COMMON-LISP|::|SPECIAL| |qi|::|*step*|) |qi|::|*step*| |qi|::|false|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3388 3390 (DEFUN step (X) ...)-378|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|step| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|step|
       #30Y(00 00 00 00 01 00 00 00 26 02 AD 24 00 09 AD 25 03 08 C9 0F 02 19
            02 C6 1B 79 DF 33 00 1E)
       (|COMMON-LISP|::|+| |qi|::|true| |qi|::|*step*| |COMMON-LISP|::|-|
        |qi|::|false| "step expects a + or a -.~%")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|X|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3392 3393 (DEFUN terpri_or_read_char NIL ...)-379|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|terpri_or_read_char| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|terpri_or_read_char|
       #29Y(00 00 00 00 00 00 00 00 26 01 6B 00 24 01 06 38 01 31 97 19 01 38
            04 71 83 2F 02 19 01)
       (|qi|::|*step*| |qi|::|true| |qi|::|check_char|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3395 3395 (DEFUN check_char (V6711) ...)-380|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|check_char| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|check_char|
       #22Y(00 00 00 00 01 00 00 00 26 02 AD 24 00 03 C8 19 02 DB 2F 02 19 02)
       (#\^ "" |qi|::|error| |qi|::|true|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6711|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3397 3399 (DEFUN input_track (V6712 V6713 V6714) ...)-381|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|input_track| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|input_track|
       #25Y(00 00 00 00 03 00 00 00 26 04 DA B0 6F 01 B1 B1 B3 6F 01 B2 2D 06
            02 19 04)
       ("~%~A<~A> Inputs to ~A ~%~A ~{~S, ~} ==>" |qi|::|spaces|
        |qi|::|output|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6712| |qi|::|V6713| |qi|::|V6714|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3401 3403 (DEFUN spaces (V6715) ...)-382|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|spaces| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|spaces|
       #46Y(00 00 00 00 01 00 00 00 26 02 AD 24 00 1D 38 02 72 8F 97 02 6C 74
            00 10 02 DD B1 38 02 31 95 AF B1 31 90 11 16 01 AC 32 90 19 03 C6
            19 02)
       (0. "" |SYSTEM|::|*FORMAT-CS*| "  ")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6715|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3405 3407 (DEFUN output_track (V6716 V6717 V6718) ...)-383|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|output_track| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|output_track|
       #25Y(00 00 00 00 03 00 00 00 26 04 DA B0 6F 01 B1 B1 B3 6F 01 B2 2D 06
            02 19 04)
       ("~%~A<~A> Output from ~A ~%~A==> ~S" |qi|::|spaces| |qi|::|output|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6716| |qi|::|V6717| |qi|::|V6718|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3409 3409 (DEFUN untrack (V6719) ...)-384|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|untrack| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|untrack|
       #19Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 71 63 2F 01 19 02)
       (|qi|::|source_code| |COMMON-LISP|::|COMPILE|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6719|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3411 3415 (DEFUN debug (X) ...)-385|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|debug| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|debug|
       #46Y(00 00 00 00 01 00 00 00 26 02 DA 8F 08 03 DB 32 09 38 02 72 8F 6B
            02 00 10 03 AF B1 31 90 DE B1 31 90 11 16 01 AC 81 90 00 2F 05 CB
            19 02)
       ("debug.txt" "debug.txt" |qi|::|*qi_home_directory*|
        |SYSTEM|::|*FORMAT-CS*| "debug.txt" |COMMON-LISP|::|DRIBBLE| "done")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|X|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3417 3417 (DEFUN undebug (X) ...)-386|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|undebug| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|undebug| #15Y(00 00 00 00 01 00 00 00 26 02 2E 00 C6 19 02)
       (|COMMON-LISP|::|DRIBBLE| "done")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|X|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3419 3419 (DEFUN profile (V6720) ...)-387|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|profile| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|profile| #17Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 2F 01 19 02)
       (|qi|::|source_code| |qi|::|profile-help|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6720|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3421 3460 (DEFUN profile-help (V37) ...)-388|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|profile-help| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|profile-help|
       #185Y(00 00 00 00 01 00 00 00 26 02 9E 20 1E 9E 5C 20 1A 9E 5C 5C 20 15
             9E 5C 5C 5C 20 0F 9E 5C 5C 5C 5C 20 08 9E 5C 5C 5C 5C 5C 1D 12 9E
             20 0A 9E 5C 20 06 9E 5C 5C 21 80 47 E0 2F 07 19 02 94 01 95 02 94
             00 95 01 94 00 95 01 DA 6F 01 B2 B1 B0 DC B4 B1 A5 7A 00 5D 5D 7A
             00 5D 5D 5D 7A 31 63 B2 AD B0 94 04 B0 B5 A4 5C 78 DD 38 02 71 B9
             00 5D 5D 5D 5D 7A 31 63 B0 2F 04 AC 2F 04 A1 19 09 94 01 95 02 94
             00 95 01 94 00 DF 6F 01 B1 B0 AF DC B3 B1 A4 7A 00 5D 5D 7A 00 5D
             5D 5D 7A 31 63 B1 AD AF AF B3 95 07 DD 38 02 31 B9 5D 5D 7A 31 63
             AF 2F 04 AC 2F 04 A0 19 08)
       ("Profile" |qi|::|gensym| |qi|::|profile_func| |COMMON-LISP|::|EQUAL|
        |COMMON-LISP|::|COMPILE| "Profile" "Cannot profile.~%" |qi|::|error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|V37|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3462 3462 (DEFUN unprofile (V6731) ...)-389|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|unprofile| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|unprofile| #15Y(00 00 00 00 01 00 00 00 26 02 AD 2F 00 19 02)
       (|qi|::|untrack|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6731|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3464 3470 (DEFMACRO profile_func (F EXPR) ...)-390|
   #23Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC DD 72 4C 32 9C C5 19 01)
   (|qi|::|profile_func| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|profile_func|
       #71Y(00 00 00 00 02 00 00 00 26 03 AE DA DA 63 2D 04 01 1D 2F 9F 5C 78
            A0 5C 5C 78 DD DE DF E0 B0 7B 02 CC 5D 7A E2 E3 E4 B3 7B 02 E5 E6
            E7 E4 B7 7B 02 D3 5D 5D 7A D4 5D 7A 7B 04 D5 5D 5D 7A 61 02 19 05
            AE 2F 02 19 03)
       (3. |SYSTEM|::|LIST-LENGTH-IN-BOUNDS-P| |SYSTEM|::|MACRO-CALL-ERROR|
        |COMMON-LISP|::|PROGN| |COMMON-LISP|::|LET*|
        (|qi|::|START| (|COMMON-LISP|::|GET-INTERNAL-RUN-TIME|)) |qi|::|RESULT|
        ((|qi|::|FINISH|
          (|COMMON-LISP|::|-| (|COMMON-LISP|::|GET-INTERNAL-RUN-TIME|)
           |qi|::|START|)))
        |qi|::|put-prop| '|qi|::|profile-stats| |COMMON-LISP|::|QUOTE|
        |COMMON-LISP|::|+| |qi|::|get-prop| '|qi|::|profile-stats| (0.)
        (|qi|::|FINISH|) (|qi|::|RESULT|))
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|SYSTEM|::|<MACRO-FORM>| |SYSTEM|::|<ENV-ARG>|) |COMMON-LISP|::|NIL| 1)
    (|qi|::|F| |qi|::|EXPR|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3472 3476 (DEFUN profile-results (X) ...)-391|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|profile-results| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|profile-results|
       #28Y(00 00 00 00 01 00 00 00 26 02 DA 6B 01 DC 72 A5 6F 03 33 02 15 DC
            63 32 A1 C9 19 02)
       (#Y(|qi|::|profile-results-1|
           #55Y(00 00 00 00 02 00 00 00 21 18 00 10 00 B1 1B 1A 94 00 83 01 B4
                31 90 DB B4 38 02 31 95 94 00 83 01 B4 31 90 DC B4 38 02 31 95
                AC 8D 9F 62 16 01 B2 31 97 A1 11 19 04)
           (|SYSTEM|::|*FORMAT-CS*| ", " " secs\n")
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        |COMMON-LISP|::|*STANDARD-OUTPUT*| |qi|::|profile-stats|
        |qi|::|calibrate-profile| |qi|::|profiled|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|X|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3478 3484 (DEFUN calibrate-profile (V6732) ...)-392|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|calibrate-profile| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|calibrate-profile|
       #47Y(00 00 00 00 01 00 00 00 26 02 92 01 16 00 19 02 95 01 94 02 94 01
            6F 00 95 02 28 04 5D 5D 19 03 93 01 6A 9E 20 04 9E 5C 21 66 DB 2F
            02 19 02)
       (|qi|::|calibrate| |qi|::|calibrate-profile|
        |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6732|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3486 3486 (DEFUN calibrate (Time) ...)-393|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|calibrate| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|calibrate|
       #21Y(00 00 00 00 01 00 00 00 26 02 DA AE DB 73 01 3A 33 02 39 19 02)
       (1.0f0 #.|COMMON-LISP|::|INTERNAL-TIME-UNITS-PER-SECOND|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|Time|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3488 3488 (DEFVAR *atp-credits* "Qi Proof Tool")-394|
   #24Y(00 00 00 00 00 00 00 00 20 01 DA 31 62 DB 8C 57 04 DB DC 31 5A C6 19
        01)
   ((|COMMON-LISP|::|SPECIAL| |qi|::|*atp-credits*|) |qi|::|*atp-credits*|
    "Qi Proof Tool")
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3490 3490 (DEFUN inferences (V6755) ...)-395|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|inferences| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|inferences| #14Y(00 00 00 00 01 00 00 00 26 02 0E 00 19 02)
       (|qi|::|*inferences*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|V6755|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3492 3492 (DEFVAR *spy* 'false)-396|
   #24Y(00 00 00 00 00 00 00 00 20 01 DA 31 62 DB 8C 57 04 DB DC 31 5A C6 19
        01)
   ((|COMMON-LISP|::|SPECIAL| |qi|::|*spy*|) |qi|::|*spy*| |qi|::|false|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3494 3496 (DEFUN spy (X) ...)-397|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|spy| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|spy|
       #36Y(00 00 00 00 01 00 00 00 26 02 38 01 31 D4 0F 00 AD 24 01 09 AD 25
            04 08 CA 0F 03 19 02 C7 1B 79 E0 33 00 1E)
       (|qi|::|*start-time*| |COMMON-LISP|::|+| |qi|::|true| |qi|::|*spy*|
        |COMMON-LISP|::|-| |qi|::|false| "spy expects a + or a -.~%")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|X|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3498 3498 (DEFVAR *inferences* 0)-398|
   #24Y(00 00 00 00 00 00 00 00 20 01 DA 31 62 DB 8C 57 04 DB DC 31 5A C6 19
        01)
   ((|COMMON-LISP|::|SPECIAL| |qi|::|*inferences*|) |qi|::|*inferences*| 0.)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3500 3503 (DEFUN display-mode (Flag) ...)-399|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|display-mode| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|display-mode|
       #30Y(00 00 00 00 01 00 00 00 26 02 AD 24 00 09 AD 25 03 08 C9 0F 02 19
            02 C6 1B 79 DF 33 00 1E)
       (|COMMON-LISP|::|+| |qi|::|true| |qi|::|*display-rb*| |COMMON-LISP|::|-|
        |qi|::|false| "display-mode expects a + or a -")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Flag|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3505 3505 (DEFVAR *display-rb* 'false)-400|
   #24Y(00 00 00 00 00 00 00 00 20 01 DA 31 62 DB 8C 57 04 DB DC 31 5A C6 19
        01)
   ((|COMMON-LISP|::|SPECIAL| |qi|::|*display-rb*|) |qi|::|*display-rb*|
    |qi|::|false|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3507 3512 (DEFUN fst-ass (V6814) ...)-401|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|fst-ass| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|fst-ass|
       #41Y(00 00 00 00 01 00 00 00 26 02 9E 20 0C 9E 5B 20 08 9E 5B 78 6F 00
            88 01 06 DE AE 30 05 19 02 9E 5B 78 DC AD DD 32 43 19 03)
       (|qi|::|tuple?| |qi|::|wrapper| |qi|::|TUPLE| 1.
        "fst-ass cannot process this input; ~A" |qi|::|error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6814|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3514 3519 (DEFUN fst-conc (V6823) ...)-402|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|fst-conc| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|fst-conc|
       #41Y(00 00 00 00 01 00 00 00 26 02 9E 20 0C 9E 5B 20 08 9E 5B 78 6F 00
            88 01 06 DE AE 30 05 19 02 9E 5B 78 DC AD DD 32 43 19 03)
       (|qi|::|tuple?| |qi|::|wrapper| |qi|::|TUPLE| 2.
        "fst-ass cannot process this input; ~A" |qi|::|error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6823|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3521 3525 (DEFUN thm-intro (V6826) ...)-403|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|thm-intro| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|thm-intro|
       #26Y(00 00 00 00 01 00 00 00 26 02 AD AE 2E 00 14 6F 01 70 02 30 03 AD
            2F 04 19 02)
       (|qi|::|retrieve_theorem| |qi|::|generalise| |qi|::|thm_intro1|
        |qi|::|write-to-file| |qi|::|load|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6826|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3527 3530 (DEFUN retrieve_theorem NIL ...)-404|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|retrieve_theorem| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|retrieve_theorem|
       #27Y(00 00 00 00 00 00 00 00 26 01 DA 71 57 6F 01 24 02 04 0E 00 19 01
            DD 2F 04 19 01)
       (|qi|::|*thm*| |qi|::|empty?| |qi|::|true|
        "no theorem has been proved~%" |qi|::|error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3532 3537 (DEFUN generalise (V625) ...)-405|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|generalise| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|generalise|
       #51Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 88 01 05 E1 2F 08 19 02 DC
            AE DD 72 43 DC AF DE 32 43 7A 6F 05 DC AF DE 72 43 DC B0 DD 72 43
            00 5D 7A 30 06 19 02)
       (|qi|::|tuple?| |qi|::|wrapper| |qi|::|TUPLE| 2. 1. |qi|::|flatten|
        |qi|::|generalise*| |qi|::|generalise| |qi|::|f_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V625|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3539 3546 (DEFUN generalise* (V6845 V6846) ...)-406|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|generalise*| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|generalise*|
       #59Y(00 00 00 00 02 00 00 00 26 03 92 02 1C 9E 19 03 95 02 AE 29 02 05
            0F 95 02 DC 6F 03 94 04 B0 6E 03 04 29 02 05 00 93 02 64 9F 20 07
            94 02 6F 00 88 01 5D 9F 21 61 DF 2F 06 19 03)
       (|qi|::|test_for_constant?| |qi|::|wrapper| "P" |qi|::|gensym|
        |qi|::|subst| |qi|::|generalise*| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6845| |qi|::|V6846|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3548 3551 (DEFUN test_for_constant? (X) ...)-407|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|test_for_constant?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|test_for_constant?|
       #22Y(00 00 00 00 01 00 00 00 26 02 DA 8C 58 03 C6 19 02 AD 2F 00 19 02)
       (|qi|::|constant?| |qi|::|true|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|X|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3553 3559 (DEFUN remove-if (V6854 V6855) ...)-408|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|remove-if| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|remove-if|
       #52Y(00 00 00 00 02 00 00 00 26 03 92 01 1F 00 19 03 B0 AD 29 02 07 13
            94 01 95 02 B0 AE 70 00 24 01 6F AD B1 AE 28 03 5D 19 05 93 01 61
            9E 21 67 DC 2F 03 19 03)
       (|qi|::|apply| |qi|::|true| |qi|::|remove-if|
        |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6854| |qi|::|V6855|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3561 3575 (DEFUN thm_intro1 (V946 V947) ...)-409|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|thm_intro1| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|thm_intro1|
       #89Y(00 00 00 00 02 00 00 00 26 03 9E 20 09 9E 5C 20 05 9E 5C 5C 1D 05
            E2 2F 09 19 03 94 01 AC 38 01 71 B2 AD 38 01 71 A9 38 02 72 8F DA
            6F 01 DC B4 B1 B1 A7 5C 78 6E 05 03 00 10 04 DF B2 38 02 31 95 B0
            B2 31 90 E0 B2 31 94 AF B2 31 90 E1 B2 31 94 11 16 02 AC 32 90 19
            07)
       ("theory_" |COMMON-LISP|::|GENTEMP|
        "\n
                              name ~A\n
                              _______________________\n
                              ~{~S, ~} ~{~S ~}>> ~S; "
        |qi|::|make-string| |SYSTEM|::|*FORMAT-CS*| "(theory " #\Space #\)
        |qi|::|thm_intro1| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V946| |qi|::|V947|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3577 3583 (DEFUN exchange (V6871 V6872 V6873) ...)-410|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|exchange| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|exchange|
       #150Y(00 00 00 00 03 00 00 00 26 04 DA B0 70 01 AC 24 02 22 AC 25 03 29
             DA B0 70 01 AC 24 02 19 AC 25 03 1A C8 16 01 F8 AC 24 02 18 AC 24
             03 31 C9 14 AD 33 01 1E C7 1B 6E C7 16 01 1B 69 C9 1B 70 C9 1B 6D
             C7 1B 80 44 C7 1B 35 C7 16 01 1B 30 C9 1B 5E C9 1B 5B C7 16 01 1B
             31 C9 1B 53 9E 19 04 B0 AF 6F 05 70 01 AC 24 02 5D AC 25 03 64 B0
             B0 6F 05 70 01 AC 24 02 52 AC 25 03 53 C8 16 01 F8 AC 24 02 51 AC
             25 03 52 C8 16 01 F8 88 06 4E AF AF AF 2D 03 07 19 04)
       (0. |qi|::|qi_>| |qi|::|true| |qi|::|false| "~S is not a boolean~%"
        |qi|::|length| |qi|::|wrapper| |qi|::|exchange1|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6871| |qi|::|V6872| |qi|::|V6873|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3585 3591 (DEFUN exchange1 (V6882 V6883 V6884) ...)-411|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|exchange1| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|exchange1|
       #51Y(00 00 00 00 03 00 00 00 26 04 AF 25 00 03 9E 21 06 9E 21 12 9E 19
            04 94 01 AF B0 B0 70 01 A1 5C 7A 2D 03 02 19 04 94 01 97 04 97 04
            95 04 28 5A 5D 19 04)
       (1. |qi|::|nth| |qi|::|insert_nth|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6882| |qi|::|V6883| |qi|::|V6884|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3593 3596 (DEFUN insert_nth (V6888 V6889 V6890) ...)-412|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|insert_nth| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|insert_nth|
       #42Y(00 00 00 00 03 00 00 00 26 04 AE 25 00 03 9E 21 0F 9E 20 11 94 01
            B0 97 04 95 04 28 6D 5D 19 04 AF 9F 5C 1B 78 DB 2F 02 19 04)
       (1. |qi|::|insert_nth| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6888| |qi|::|V6889| |qi|::|V6890|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3598 3600 (DEFUN unsolved_goals (V6915) ...)-413|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|unsolved_goals| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|unsolved_goals|
       #24Y(00 00 00 00 01 00 00 00 26 02 9E 21 05 DB 2F 02 19 02 94 01 2F 00
            19 02)
       (|qi|::|length| |qi|::|unsolved_goals| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6915|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3602 3602 (DEFUN atp-credits (V6917) ...)-414|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|atp-credits| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|atp-credits| #15Y(00 00 00 00 01 00 00 00 26 02 9E 0F 00 19 02)
       (|qi|::|*atp-credits*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6917|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3604 3604 (DEFUN atp-prompt (V6918) ...)-415|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|atp-prompt| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|atp-prompt| #15Y(00 00 00 00 01 00 00 00 26 02 9E 0F 00 19 02)
       (|qi|::|*atp-prompt*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6918|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3606 3607 (DEFUN sequents-in (V6923) ...)-416|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|sequents-in| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|sequents-in|
       #22Y(00 00 00 00 01 00 00 00 26 02 9E 21 05 DA 2F 01 19 02 9E 5B 19 02)
       (|qi|::|sequents-in| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6923|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3609 3609 (DEFUN prf (V6930) ...)-417|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|prf| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|prf| #17Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 2F 01 19 02)
       (|qi|::|source_code| |qi|::|prf1|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6930|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3611 3611 (DEFUN unprf (V6931) ...)-418|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|unprf| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|unprf|
       #19Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 71 63 2F 01 19 02)
       (|qi|::|source_code| |COMMON-LISP|::|COMPILE|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6931|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3613 3630 (DEFUN prf1 (V57) ...)-419|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|prf1| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|prf1|
       #110Y(00 00 00 00 01 00 00 00 26 02 9E 20 2B 9E 5C 20 27 9E 5C 5C 20 22
             9E 5C 5C 5B 20 1C 9E 5C 5C 5B 5C 1C 15 9E 5C 5C 5C 20 0F 9E 5C 5C
             5C 5C 1C 08 9E 5C 78 6F 00 88 01 0C 9E 20 04 9E 5C 21 27 E0 2F 07
             19 02 95 01 94 00 95 01 94 00 94 05 AF AE DC 94 04 DD B4 00 5D 7A
             A4 5C 5D 5D 7A 00 5D 5D 5D 7A 31 63 19 06 DE 9F 5C 78 30 05 19 02)
       (|qi|::|tactic?| |qi|::|wrapper| |qi|::|update-proof-if-needed|
        |COMMON-LISP|::|QUOTE| "~A is not a tactic~%" |qi|::|error|
        |qi|::|prf1| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|V57|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3632 3634 (DEFUN update-proof-if-needed (V1892 V1893 V1894) ...)-420|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|update-proof-if-needed| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|update-proof-if-needed|
       #28Y(00 00 00 00 03 00 00 00 26 04 AF AE 70 00 88 01 08 AE 7B 01 AE 30
            02 19 04 9E 19 04)
       (|qi|::|qi_=| |qi|::|wrapper| |qi|::|update-proof|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V1892| |qi|::|V1893| |qi|::|V1894|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3636 3636 (DEFMACRO structure (&REST X) ...)-421|
   #23Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC DD 72 4C 32 9C C5 19 01)
   (|qi|::|structure| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|structure|
       #21Y(00 00 00 00 02 00 00 00 26 03 95 02 DA DB AE 7B 02 61 02 19 04)
       (|qi|::|struct1| |COMMON-LISP|::|QUOTE|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|SYSTEM|::|<MACRO-FORM>| |SYSTEM|::|<ENV-ARG>|) |COMMON-LISP|::|NIL| 1)
    (|COMMON-LISP|::|&REST| |qi|::|X|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3638 3647 (DEFUN struct1 (V6970) ...)-422|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|struct1| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|struct1|
       #46Y(00 00 00 00 01 00 00 00 26 02 9E 21 05 E0 2F 07 19 02 94 01 95 02
            AD AD 30 00 AD AD 30 01 AD AD 30 02 AD 2F 03 AD 2F 04 AD AD 30 05
            19 04)
       (|qi|::|struct-syntax-check| |qi|::|add-to-type-discipline-selectors|
        |qi|::|add-constructor-type-discipline|
        |qi|::|add-recognisor-type-discipline| |qi|::|add-recognisor-function|
        |qi|::|make-structure| |qi|::|struct1| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6970|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3649 3656 (DEFUN struct-syntax-check (V6973 V6974) ...)-423|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|struct-syntax-check| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|struct-syntax-check|
       #69Y(00 00 00 00 02 00 00 00 26 03 AE 6F 00 AC 24 01 14 AC 24 04 25 CA
            14 AD 33 01 1E C6 16 01 1B 1B C9 16 01 1B 16 AF 6F 02 6F 03 AC 24
            01 6D AC 24 04 6E CA 1B 61 AD 2F 06 19 03 C9 F8 24 01 76 E1 AF 30
            08 19 03)
       (|qi|::|symbol?| |qi|::|true| |qi|::|variable?| |qi|::|not|
        |qi|::|false| "~S is not a boolean~%" |qi|::|struct-syntax-check1|
        "~A: structure expects a non-variable symbol here" |qi|::|error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6973| |qi|::|V6974|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3658 3667 (DEFUN struct-syntax-check1 (V6983) ...)-424|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|struct-syntax-check1| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|struct-syntax-check1|
       #112Y(00 00 00 00 01 00 00 00 26 02 92 01 28 00 19 02 DA 2F 01 19 02 C8
             16 01 1B 80 49 CB 16 01 1B 80 43 94 02 6F 04 6F 05 AC 24 03 6A AC
             24 06 6C CC 1B 1E 93 01 58 9E 20 04 9E 5C 1D 54 9E 20 29 9E 5C 20
             25 94 01 6F 02 AC 24 03 56 AC 24 06 14 CC 14 AD 33 01 1E 9E 5C 79
             29 01 03 56 E3 94 02 30 01 19 02 CB F8 88 08 6D 9E 21 71 E4 2F 0B
             19 02)
       ("odd number of elements in structure" |qi|::|error| |qi|::|symbol?|
        |qi|::|true| |qi|::|variable?| |qi|::|not| |qi|::|false|
        "~S is not a boolean~%" |qi|::|wrapper|
        "~A: structure expects a non-variable symbol here"
        |qi|::|struct-syntax-check1| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6983|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3669 3671 (DEFUN add-recognisor-type-discipline (V6984) ...)-425|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|add-recognisor-type-discipline| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|add-recognisor-type-discipline|
       #27Y(00 00 00 00 01 00 00 00 26 02 AD DA 70 01 DC 6F 03 DE DF 00 5D 5D
            7A 30 06 19 02)
       (|qi|::|?| |qi|::|concat| "Type_" |qi|::|gensym| |qi|::|-->|
        |qi|::|boolean| |qi|::|add-to-type-discipline|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6984|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3673 3675 (DEFUN add-constructor-type-discipline (V6985 V6986) ...)-426|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|add-constructor-type-discipline| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|add-constructor-type-discipline|
       #23Y(00 00 00 00 02 00 00 00 26 03 DA AF 70 01 AC AF B1 70 02 30 03 19
            04)
       (|qi|::|make-| |qi|::|concat| |qi|::|structure_types|
        |qi|::|add-to-type-discipline|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6985| |qi|::|V6986|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3677 3685 (DEFUN structure_types (V6993 V6994) ...)-427|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|structure_types| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|structure_types|
       #65Y(00 00 00 00 02 00 00 00 26 03 9F 20 09 9F 5C 20 05 9F 5C 5C 1D 0C
            9F 20 04 9F 5C 21 12 DC 2F 03 19 03 9F 5C 78 6F 00 DB AF 00 5D 5D
            5D 19 03 95 02 94 00 6F 00 DB 95 02 B1 6C 4F 00 5D 5D 5D 19 04)
       (|qi|::|curry_type| |qi|::|-->| |qi|::|structure_types|
        |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6993| |qi|::|V6994|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3687 3697 (DEFUN add-to-type-discipline-selectors (V6996 V6997) ...)-428|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|add-to-type-discipline-selectors| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|add-to-type-discipline-selectors|
       #65Y(00 00 00 00 02 00 00 00 26 03 92 01 28 00 19 03 95 01 AF DA 70 01
            94 03 70 01 AC B1 DC 94 04 00 5D 5D 7A 6F 03 30 04 AC DF 30 06 B0
            95 02 29 02 07 00 93 01 58 9E 20 04 9E 5C 21 54 E1 2F 08 19 03)
       (|COMMON-LISP|::|-| |qi|::|concat| |qi|::|-->| |qi|::|curry_type|
        |qi|::|add-to-type-discipline| 1. |qi|::|store_arity|
        |qi|::|add-to-type-discipline-selectors| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6996| |qi|::|V6997|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3699 3710 (DEFUN add-recognisor-function (V6999) ...)-429|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|add-recognisor-function| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|add-recognisor-function|
       #48Y(00 00 00 00 01 00 00 00 26 02 AD DA 70 01 AC DC 30 03 DE AD DF 00
            7A E0 B2 E1 70 01 DF 00 5D 7A E2 E3 00 5D 5D 5D 7A 00 5D 5D 5D 7A
            31 63 19 03)
       (|qi|::|?| |qi|::|concat| 1. |qi|::|store_arity| |COMMON-LISP|::|DEFUN|
        |qi|::|x| |COMMON-LISP|::|IF| |qi|::|-P| '|qi|::|true| '|qi|::|false|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V6999|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3712 3725 (DEFUN make-structure (V7000 V7001) ...)-430|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|make-structure| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|make-structure|
       #50Y(00 00 00 00 02 00 00 00 26 03 DA AF 70 01 AC DC B0 6F 03 73 02 39
            30 04 AE 6F 05 E0 B1 E1 B0 B0 00 5D 5D 7A 00 5D 7A 00 7A AE 33 02
            23 7A 31 63 19 05)
       (|qi|::|make-| |qi|::|concat| #10r1/2 |qi|::|length| |qi|::|store_arity|
        |qi|::|remove_types_from_struct| |COMMON-LISP|::|DEFSTRUCT|
        :|CONSTRUCTOR|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V7000| |qi|::|V7001|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3727 3731 (DEFUN remove_types_from_struct (V7007) ...)-431|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|remove_types_from_struct| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|remove_types_from_struct|
       #41Y(00 00 00 00 01 00 00 00 26 02 92 01 10 00 19 02 94 01 9F 5C 79 28
            03 5D 19 02 93 01 70 9E 20 04 9E 5C 21 6C DA 2F 01 19 02)
       (|qi|::|remove_types_from_struct| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V7007|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3733 3735 (DEFUN defprolog (V5584) ...)-432|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|defprolog| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|defprolog|
       #23Y(00 00 00 00 01 00 00 00 26 02 AD DA 72 3B 63 70 01 6F 02 2F 03 19
            02)
       (|COMMON-LISP|::|LIST| |qi|::|process-prolog-chars|
        |qi|::|read-prolog-syntax| |qi|::|compile-prolog|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5584|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3737 3743 (DEFUN read-prolog-syntax (V5585) ...)-433|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|read-prolog-syntax| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|read-prolog-syntax|
       #48Y(00 00 00 00 01 00 00 00 26 02 AD DA 72 3B 38 02 72 8D AC AD 01 02
            38 01 71 83 63 DB DC DB 70 03 DC DB 70 03 DE DE DF 6E 09 06 AC 63
            30 07 19 04)
       (|COMMON-LISP|::|STRING| 1. 0. |qi|::|@p| |qi|::|false| |qi|::|eof?|
        |qi|::|read-user-input| |qi|::|divide-clauses|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5585|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3745 3761 (DEFUN process-prolog-chars (V1 V2) ...)-434|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|process-prolog-chars| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|process-prolog-chars|
       #147Y(00 00 00 00 02 00 00 00 26 03 92 02 2D AD 32 63 19 03 9F 5C 79 DC
             DD DD DC DA A4 1B 0D 9F 5C 5C 79 DC DD DD DC DE 94 08 A5 5D 5D 5D
             5D 5D 1B 80 57 95 02 C7 1B 80 4F 93 02 53 9F 20 0F 94 02 25 00 0A
             9F 5C 20 06 9F 5C 78 24 01 46 9F 20 27 9F 5C 20 23 9F 5C 78 25 04
             1D 9F 5C 5C 20 18 9F 5C 5C 78 25 01 11 94 02 DF DC E0 E1 00 5D 5D
             5D 7A 70 08 88 09 FF A7 9F 20 06 94 02 24 05 FF B2 9F 20 0C 95 02
             A0 5B 14 A0 7A 29 02 05 FF A9 E4 2F 0B 19 03)
       (#\) #\. #\Space #\& #\! #\, #\Newline #\Tab |qi|::|element?|
        |qi|::|wrapper| |qi|::|process-prolog-chars| |qi|::|f_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V1| |qi|::|V2|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3763 3773 (DEFUN divide-clauses (V10930 V10931) ...)-435|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|divide-clauses| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|divide-clauses|
       #88Y(00 00 00 00 02 00 00 00 26 03 9F 20 09 94 02 25 00 04 9F 5C 1D 13
            9F 20 2F 94 02 25 00 2A AD 6F 01 95 03 63 28 64 5D 19 03 AD 6F 01
            00 1B 77 DD 63 A1 5C 5D 7A AE 29 02 05 50 95 02 AE 94 04 00 7A 73
            02 23 29 02 05 42 9F 20 05 94 02 24 02 5F 9F 21 67 DE 2F 05 19 03)
       (|qi|::|&&| |qi|::|process_clause| |qi|::|!| |qi|::|cut|
        "~%misplaced . in Prolog program?~%" |qi|::|error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V10930| |qi|::|V10931|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3775 3787 (DEFUN process_clause (V5360) ...)-436|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|process_clause| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|process_clause|
       #191Y(00 00 00 00 01 00 00 00 26 02 9E 20 23 9E 5C 20 1F 9E 5C 5C 20 1A
             9E 5C 5C 78 25 00 13 94 01 6F 01 AC 24 02 38 AC 25 04 80 43 C9 F8
             88 06 80 40 9E 20 80 85 9E 5C 20 80 80 9E 5C 5C 1C 80 7A 94 01 6F
             01 AC 24 02 80 49 AC 24 04 80 67 CA 14 AD 33 01 1E C7 16 01 1B 53
             C9 16 01 1B 4E 9F 5C 78 6F 03 AC 24 02 6D AC 24 04 6E CA 1B 61 CA
             1B 5E 95 01 94 02 94 01 2F 07 7A 6F 08 DA 9F 5C 79 6F 09 00 5D 5D
             5D 19 03 C7 16 01 1B 29 C9 16 01 1B 24 9F 5C 78 6F 03 AC 24 02 6D
             AC 24 04 6E CA 1B FF AC 94 01 9F 5C 78 2F 07 7A 6F 08 DA 63 00 5D
             5D 5D 19 02 C9 F8 88 06 69 E4 AE 30 0B 19 02)
       (:|-| |qi|::|predicate?| |qi|::|true| |qi|::|list?| |qi|::|false|
        "~S is not a boolean~%" |qi|::|wrapper| |qi|::|convert_terms|
        |qi|::|process_literal| |qi|::|process_body|
        "~A: is not a legal clause.~%" |qi|::|error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5360|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3789 3791 (DEFUN convert_terms (V5362) ...)-437|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|convert_terms| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|convert_terms|
       #40Y(00 00 00 00 01 00 00 00 26 02 63 AE 1B 0C 94 00 AC DA 70 01 84 02
            16 01 83 00 AC 8D 9F 70 16 01 AC 80 B1 00 2F 02 19 02)
       (|COMMON-LISP|::|+| |qi|::|convert_term| |qi|::|remove_redundant_modes|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5362|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3793 3821 (DEFUN remove_redundant_modes (V5368) ...)-438|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|remove_redundant_modes| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|remove_redundant_modes|
       #257Y(00 00 00 00 01 00 00 00 26 02 9E 20 36 94 01 25 00 31 9E 5C 20 2D
             9E 5C 5B 20 28 9E 5C 5B 78 25 00 21 9E 5C 5B 5C 20 1B 9E 5C 5B 5C
             5C 20 14 9E 5C 5B 5C 5C 5C 1C 0C 9E 5C 5C 20 07 9E 5C 5C 5C 1D 80
             89 9E 20 80 7F 94 01 25 00 80 79 9E 5C 20 80 74 9E 5C 5B 20 80 6E
             9E 5C 5B 78 25 01 80 66 9E 5C 5B 5C 20 80 5F 9E 5C 5B 5C 5C 20 80
             57 9E 5C 5B 5C 5C 5B 20 80 4E 9E 5C 5B 5C 5C 5B 78 25 00 80 43 9E
             5C 5B 5C 5C 5B 5C 20 3A 9E 5C 5B 5C 5C 5B 5C 5C 20 30 9E 5C 5B 5C
             5C 5B 5C 5C 5C 1C 25 9E 5C 5B 5C 5C 5C 1C 1D 9E 5C 5C 20 18 9E 5C
             5C 5C 1C 12 9E 5C 5B 5C 5C 5B 5C 5C 78 9F 5C 5C 78 70 02 88 03 18
             9E 21 31 9E 19 02 95 01 94 00 95 00 DA 94 01 6C FF 32 9F 5C 5D 5D
             19 05 95 01 94 00 95 00 DA DB 94 02 A0 5C 5B 5C 78 00 5D 5D 7A A1
             5C 5D 7A 29 01 06 FF 10 DE AE 33 00 16 19 02)
       (|qi|::|mode| |qi|::|cons| |qi|::|qi_=| |qi|::|wrapper|
        |qi|::|remove_redundant_modes|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5368|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3823 3844 (DEFUN convert_term (V5379 V5380) ...)-439|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|convert_term| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|convert_term|
       #163Y(00 00 00 00 02 00 00 00 26 03 9F 20 14 94 02 25 00 0F 9F 5C 20 0B
             9F 5C 5C 20 06 9F 5C 5C 5C 1D 3F 9F 20 14 94 02 25 01 0F 9F 5C 20
             0B 9F 5C 5C 20 06 9F 5C 5C 5C 1D 39 9F 20 05 9F 5C 1D 80 47 9F 20
             80 55 DB DA 94 04 B0 6C FF BE B0 00 5D 5D 7A DA 95 05 B1 6C FF B2
             C7 14 00 5D 5D 5D 1B 3C 95 02 95 00 DA 94 02 94 02 6C FF 9E 9F 5D
             5D 19 05 95 02 DB 94 01 B0 6C FF 90 9F 5C 78 B1 6C FF 89 00 5D 5D
             5D 19 04 DB DA 94 04 B0 6C FF 7B B0 00 5D 5D 7A DA 63 C7 1B 40 DA
             AF A0 14 00 5D 5D 5D 19 03)
       (|qi|::|mode| |qi|::|cons| |COMMON-LISP|::|-|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5379| |qi|::|V5380|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3846 3848 (DEFUN predicate? (V315) ...)-440|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|predicate?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|predicate?|
       #67Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 AC 24 01 14 AC 24 04 23 CA
            14 AD 33 01 1E C6 16 01 1B 19 C9 16 01 1B 14 AE 6F 02 6F 03 AC 24
            01 6D AC 24 04 6E CA 1B 61 C6 19 02 C9 F8 88 06 78 E1 AE 30 08 19
            02)
       (|qi|::|symbol?| |qi|::|true| |qi|::|variable?| |qi|::|not|
        |qi|::|false| "~S is not a boolean~%" |qi|::|wrapper|
        "~A is not a predicate.~%" |qi|::|error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V315|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3850 3853 (DEFUN process_literal (V5360) ...)-441|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|process_literal| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|process_literal|
       #27Y(00 00 00 00 01 00 00 00 26 02 9E 21 05 DB 2F 02 19 02 94 01 6F 00
            9F 5C 5D 19 02)
       (|qi|::|rename_pred| |qi|::|process_literal|
        |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5360|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3855 3857 (DEFUN rename_pred (V319) ...)-442|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|rename_pred| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|rename_pred|
       #23Y(00 00 00 00 01 00 00 00 26 02 AD 24 00 06 AD DC 30 03 19 02 C6 19
            02)
       (|qi|::|qi_=| |qi|::|=*| |COMMON-LISP|::|*| |qi|::|concat|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V319|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3859 3869 (DEFUN process_body (V5362) ...)-443|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|process_body| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|process_body|
       #163Y(00 00 00 00 01 00 00 00 26 02 9E 20 1A 9E 5C 20 16 9E 5C 5C 1C 11
             94 01 6F 00 AC 24 01 2F AC 25 03 3B C8 F8 88 05 39 9E 20 80 72 9E
             5C 20 80 6D 94 01 6F 00 AC 24 01 3E AC 24 03 80 5B C9 14 AD 33 01
             1E C6 16 01 1B 5B C8 16 01 1B 56 9F 5C 78 6F 02 AC 24 01 6D AC 24
             03 6E C9 1B 61 C9 1B 5E 94 01 9F 5C 5B 7A 6F 06 00 5D 19 02 C6 16
             01 1B 28 C8 16 01 1B 23 9F 5C 78 6F 02 AC 24 01 6D AC 24 03 6E C9
             1B FF B7 95 01 94 02 9E 5B 7A 6F 06 95 01 28 FF 75 5D 19 03 C8 F8
             88 05 6A E1 AE 30 08 19 02)
       (|qi|::|predicate?| |qi|::|true| |qi|::|list?| |qi|::|false|
        "~S is not a boolean~%" |qi|::|wrapper| |qi|::|process_literal|
        "~%syntax error in ~A~%" |qi|::|error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5362|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3871 3872 (DEFUN compile-prolog (V5360) ...)-444|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|compile-prolog| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|compile-prolog|
       #23Y(00 00 00 00 01 00 00 00 26 02 DA DB AF 73 00 16 6F 02 33 00 16 19
            02)
       (|qi|::|compile_clauses| |qi|::|test-for-naive-abs|
        |qi|::|group_clauses|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5360|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3874 3885 (DEFUN test-for-naive-abs (V5361) ...)-445|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|test-for-naive-abs| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|test-for-naive-abs|
       #70Y(00 00 00 00 01 00 00 00 26 02 9E 20 24 9E 5B 20 20 9E 5C 20 1C 9E
            5C 78 25 00 16 9E 5C 5C 20 11 9E 5C 5C 5C 1C 0B 9E 5B 79 6F 01 6B
            02 90 01 31 12 DD 6B 04 AF 6F 05 33 02 15 E0 AE 30 07 AD 2F 08 19
            02 9E 19 02)
       (:|-| |qi|::|complexity| |qi|::|*complexity-bound*|
        #Y(|qi|::|test-for-naive-abs-1|
           #39Y(00 00 00 00 02 00 00 00 21 18 00 10 00 DB B3 38 02 31 95 B2 2F
                02 10 03 B4 B6 31 8D 11 B2 2F 04 B2 31 97 A1 11 19 04)
           (|SYSTEM|::|*FORMAT-CS*|
            "note: space optimisation; performing naive abstraction on "
            |SYSTEM|::|STREAM-START-S-EXPRESSION|
            |COMMON-LISP|::|*PRINT-RIGHT-MARGIN*|
            |SYSTEM|::|STREAM-END-S-EXPRESSION|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        |COMMON-LISP|::|*STANDARD-OUTPUT*| |qi|::|remove_modes|
        "mode declarations will be ignored for this clause.~%" |qi|::|output|
        |qi|::|naive-abs|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5361|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3887 3887 (SETQ *complexity-bound* 129)-446|
   #15Y(00 00 00 00 00 00 00 00 20 01 C5 0F 01 19 01)
   (129. |qi|::|*complexity-bound*|)
   (|COMMON-LISP|::|NIL| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3889 3892 (DEFUN complexity (V5362) ...)-447|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|complexity| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|complexity|
       #33Y(00 00 00 00 01 00 00 00 26 02 92 01 06 C5 19 02 93 01 7A 94 01 DB
            70 02 95 02 6C 74 33 02 39 19 02)
       (1. |COMMON-LISP|::|+| |qi|::|complexity*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5362|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3894 3908 (DEFUN complexity* (V5382 V5383) ...)-448|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|complexity*| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|complexity*|
       #149Y(00 00 00 00 02 00 00 00 26 03 9F 20 14 94 02 25 00 0F 9F 5C 20 0B
             9F 5C 5C 20 06 9F 5C 5C 5C 1D 12 AE DB 70 02 AC 24 03 15 AC 24 04
             39 CB 14 AD 33 01 1E 95 02 94 00 9E 5C 78 29 02 06 4C C8 1B 33 C8
             16 01 1B 2E CB 1B 65 CD 19 03 95 02 AE 6F 0A 94 01 B0 6C FF B3 9F
             5C 78 B1 6C FF AC 73 02 39 33 02 39 19 04 AF 6F 05 AC 24 03 54 AC
             25 04 55 C9 16 01 F8 88 07 51 9F 20 15 94 02 25 09 10 9F 5C 20 0C
             9F 5C 5C 20 07 9F 5C 5C 5C 1D FF BC AD 2F 0A 19 03)
       (|qi|::|mode| |qi|::|_| |qi|::|qi_=| |qi|::|true| |qi|::|false|
        |qi|::|variable?| "~S is not a boolean~%" |qi|::|wrapper| 1.
        |qi|::|cons| |qi|::|mode_complexity|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5382| |qi|::|V5383|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3910 3912 (DEFUN mode_complexity (V5386) ...)-449|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|mode_complexity| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|mode_complexity|
       #30Y(00 00 00 00 01 00 00 00 26 02 AD 24 00 0A AD 24 02 09 DE AE 30 05
            19 02 C6 19 02 C8 19 02)
       (|COMMON-LISP|::|+| 2. |COMMON-LISP|::|-| 1. "unknown mode ~S.~%"
        |qi|::|error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5386|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3914 3928 (DEFUN naive-abs (V5387) ...)-450|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|naive-abs| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|naive-abs|
       #81Y(00 00 00 00 01 00 00 00 26 02 9E 20 19 9E 5B 20 15 9E 5C 20 11 9E
            5C 78 25 00 0B 9E 5C 5C 20 06 9E 5C 5C 5C 1D 05 E0 2F 07 19 02 94
            01 95 00 DB AD 70 02 DD AD 73 00 16 94 03 9E 7A DA DE AF B2 6F 05
            00 5D 5D 7A A5 5C 5C 5B 7A 00 5D 5D 5D 19 06)
       (:|-| |qi|::|assocterm| |qi|::|map| |qi|::|fst| |qi|::|=*|
        |qi|::|remove_modes| |qi|::|naive-abs| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5387|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3930 3930 (DEFUN assocterm (V5390) ...)-451|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|assocterm| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|assocterm|
       #18Y(00 00 00 00 01 00 00 00 26 02 DA 6F 01 AE 30 02 19 02)
       ("V" |qi|::|gensym| |qi|::|@p|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5390|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3932 3932 (DEFUN group_clauses (V5618) ...)-452|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|group_clauses| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|group_clauses|
       #16Y(00 00 00 00 01 00 00 00 26 02 AD 63 30 00 19 02)
       (|qi|::|group_clauses_help|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5618|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3934 3938 (DEFUN group_clauses_help (V5619 V5620) ...)-453|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|group_clauses_help| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|group_clauses_help|
       #41Y(00 00 00 00 02 00 00 00 26 03 92 02 14 DA AE 30 01 19 03 95 02 94
            03 AF 70 02 29 02 05 00 93 02 6C 9F 21 6F DD 2F 04 19 03)
       (|qi|::|reverse| |qi|::|map| |qi|::|place_in_group|
        |qi|::|group_clauses_help| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5619| |qi|::|V5620|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3940 3945 (DEFUN place_in_group (V5623 V5624) ...)-454|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|place_in_group| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|place_in_group|
       #59Y(00 00 00 00 02 00 00 00 26 03 92 01 11 AE 00 7A 00 1B 20 AE 9F 5B
            7A 9F 5C 1B 18 93 01 6F 9E 20 08 AE 94 02 70 00 88 01 6A 9E 20 0A
            94 01 AF 95 03 28 68 5D 19 03 DC 2F 03 19 03)
       (|qi|::|belongs?| |qi|::|wrapper| |qi|::|place_in_group|
        |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5623| |qi|::|V5624|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3947 3955 (DEFUN belongs? (V5637 V5638) ...)-455|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|belongs?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|belongs?|
       #69Y(00 00 00 00 02 00 00 00 26 03 9F 20 32 9F 5B 20 2E 9F 5C 20 2A 9F
            5C 78 25 00 24 9E 20 21 9E 5B 20 1D 9E 5B 5B 20 18 9E 5B 5C 20 13
            9E 5B 5C 78 25 00 0C 9F 5B 78 9F 5B 5B 78 70 01 88 02 03 C9 19 03
            C8 19 03)
       (:|-| |qi|::|qi_=| |qi|::|wrapper| |qi|::|true| |qi|::|false|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5637| |qi|::|V5638|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3957 3976 (DEFUN compile_clauses (V62) ...)-456|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|compile_clauses| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|compile_clauses|
       #128Y(00 00 00 00 01 00 00 00 26 02 9E 20 22 9E 5B 20 1E 9E 5B 5B 20 19
             9E 5B 5C 20 14 9E 5B 5C 78 25 00 0D 9E 5B 5C 5C 20 07 9E 5B 5C 5C
             5C 1D 05 E4 2F 0B 19 02 94 01 94 00 95 00 6F 01 AC 63 DC 94 04 B0
             DD 00 7A 73 02 23 A4 5C 5C 78 95 0A 00 5D 7A DE 63 B8 1B 0C 94 00
             AC B7 70 05 84 02 16 01 83 00 AC 8D 9F 70 16 01 AC 31 B1 16 01 7A
             70 06 00 5D 5D 5D 7A 6E 03 07 6F 08 71 63 2F 09 19 05)
       (:|-| |qi|::|make_fparams| |COMMON-LISP|::|DEFUN| |qi|::|Continuation|
        |COMMON-LISP|::|OR| |qi|::|compile_clause| |qi|::|insert_catch|
        |qi|::|test_ignore_declarations| |qi|::|record_source|
        |COMMON-LISP|::|COMPILE| |qi|::|compile_clauses|
        |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|V62|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3978 3982 (DEFUN insert_catch (V10941 V10942) ...)-457|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|insert_catch| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|insert_catch|
       #32Y(00 00 00 00 02 00 00 00 26 03 AE 6F 00 88 01 03 9E 19 03 DC 63 DD
            B0 00 5D 7A 00 5D 5D 5D 19 03)
       (|qi|::|uses_cut?| |qi|::|wrapper| |COMMON-LISP|::|PROG|
        |COMMON-LISP|::|RETURN|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V10941| |qi|::|V10942|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3984 3984 (DEFUN uses_cut? (V10943) ...)-458|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|uses_cut?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|uses_cut?|
       #18Y(00 00 00 00 01 00 00 00 26 02 DA 00 7A AE 30 01 19 02)
       (|qi|::|cut*| |qi|::|occurs?|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V10943|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3986 3986 (DEFUN make_fparams (V5662) ...)-459|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|make_fparams| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|make_fparams|
       #19Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 6F 01 32 63 19 02)
       (|qi|::|length| |qi|::|fparams|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5662|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3988 3991 (DEFUN fparams (V5668) ...)-460|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|fparams| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|fparams|
       #28Y(00 00 00 00 01 00 00 00 26 02 AD 24 00 0B DB AE 70 02 97 02 28 74
            5D 19 02 00 19 02)
       (0. |qi|::|FP| |qi|::|concat|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5668|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3993 3996 (DEFUN compile_clause (V5671 V5672) ...)-461|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|compile_clause| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|compile_clause|
       #30Y(00 00 00 00 02 00 00 00 26 03 DA DB DC 00 5D 7A B0 6F 03 B0 70 04
            6F 05 00 5D 5D 5D 19 03)
       (|COMMON-LISP|::|PROG2| |COMMON-LISP|::|INCF|
        |qi|::|*logical-inferences*| |qi|::|linearise_clause| |qi|::|aum|
        |qi|::|interpret_aum|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5671| |qi|::|V5672|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|3998 4129 (DEFUN interpret_aum (V5360) ...)-462|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|interpret_aum| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|interpret_aum|
       #1223Y(00 00 00 00 01 00 00 00 26 02 9E 20 80 4C 94 01 25 00 80 46 9E 5C
              20 80 41 9E 5C 5C 20 3C 9E 5C 5C 78 25 01 35 9E 5C 5C 5C 20 2F 9E
              5C 5C 5C 5C 20 28 9E 5C 5C 5C 5C 78 25 02 1F 9E 5C 5C 5C 5C 5C 20
              17 9E 5C 5C 5C 5C 5C 5C 1C 0E 9E 5C 5C 5C 5C 5C 78 DD 70 04 88 05
              82 EA 9E 20 3D 94 01 25 07 38 9E 5C 20 34 9E 5C 5C 20 2F 9E 5C 5C
              78 25 08 28 9E 5C 5C 5C 20 22 9E 5C 5C 5C 5C 20 1B 9E 5C 5C 5C 5C
              78 25 09 12 9E 5C 5C 5C 5C 5C 20 0A 9E 5C 5C 5C 5C 5C 5C 1D 82 BF
              9E 20 39 94 01 25 0B 34 9E 5C 20 30 9E 5C 78 25 0C 2A 9E 5C 5C 20
              25 9E 5C 5C 78 25 0D 1E 9E 5C 5C 5C 20 18 9E 5C 5C 5C 78 25 0E 10
              9E 5C 5C 5C 5C 20 09 9E 5C 5C 5C 5C 5C 1D 82 A0 9E 20 3D 94 01 25
              00 38 9E 5C 20 34 9E 5C 5C 20 2F 9E 5C 5C 78 25 01 28 9E 5C 5C 5C
              20 22 9E 5C 5C 5C 5C 20 1B 9E 5C 5C 5C 5C 78 25 02 12 9E 5C 5C 5C
              5C 5C 20 0A 9E 5C 5C 5C 5C 5C 5C 1D 82 65 9E 20 3D 9E 5C 20 39 9E
              5C 78 25 11 33 9E 5C 5C 20 2E 9E 5C 5C 78 25 12 27 9E 5C 5C 5C 20
              21 9E 5C 5C 5C 78 25 13 19 9E 5C 5C 5C 5C 20 12 9E 5C 5C 5C 5C 78
              25 14 09 9E 5C 5C 5C 5C 5C 1D 82 39 9E 20 2C 9E 5C 20 28 9E 5C 78
              25 11 22 9E 5C 5C 20 1D 9E 5C 5C 78 25 12 16 9E 5C 5C 5C 20 10 9E
              5C 5C 5C 78 25 16 08 9E 5C 5C 5C 5C 1D 82 10 9E 20 29 94 01 25 0B
              24 9E 5C 20 20 9E 5C 78 25 18 1A 9E 5C 5C 20 15 9E 5C 5C 78 25 0D
              0E 9E 5C 5C 5C 20 08 9E 5C 5C 5C 5C 1D 81 E8 9E 20 29 94 01 25 0B
              24 9E 5C 20 20 9E 5C 78 25 1A 1A 9E 5C 5C 20 15 9E 5C 5C 78 25 0D
              0E 9E 5C 5C 5C 20 08 9E 5C 5C 5C 5C 1D 81 C0 9E 20 80 7C 94 01 25
              1C 80 76 9E 5C 20 80 71 9E 5C 78 25 0B 80 6A 9E 5C 5C 20 80 64 9E
              5C 5C 78 25 1D 80 5C 9E 5C 5C 5C 20 80 55 9E 5C 5C 5C 78 25 09 80
              4C 9E 5C 5C 5C 5C 20 80 44 9E 5C 5C 5C 5C 5B 1C 3C 9E 5C 5C 5C 5C
              5C 20 34 9E 5C 5C 5C 5C 5C 78 25 1E 2A 9E 5C 5C 5C 5C 5C 5C 20 21
              9E 5C 5C 5C 5C 5C 5C 78 25 01 16 9E 5C 5C 5C 5C 5C 5C 5C 20 0C 9E
              5C 5C 5C 5C 5C 5C 5C 5C 1D 81 4E 9E 20 80 73 94 01 25 1C 80 6D 9E
              5C 20 80 68 9E 5C 78 25 0B 80 61 9E 5C 5C 20 80 5B 9E 5C 5C 78 25
              1D 80 53 9E 5C 5C 5C 20 80 4C 9E 5C 5C 5C 78 25 09 80 43 9E 5C 5C
              5C 5C 20 3C 9E 5C 5C 5C 5C 5C 20 34 9E 5C 5C 5C 5C 5C 78 25 1E 2A
              9E 5C 5C 5C 5C 5C 5C 20 21 9E 5C 5C 5C 5C 5C 5C 78 25 01 16 9E 5C
              5C 5C 5C 5C 5C 5C 20 0C 9E 5C 5C 5C 5C 5C 5C 5C 5C 1D 80 E5 9E 20
              81 4C 94 01 25 20 81 46 9E 5C 20 81 41 9E 5C 5C 20 81 3B 9E 5C 5C
              78 25 21 81 33 9E 5C 5C 5C 20 81 2C 9E 5C 5C 5C 5C 20 81 24 9E 5C
              5C 5C 5C 78 25 09 81 1A 9E 5C 5C 5C 5C 5C 20 81 11 9E 5C 5C 5C 5C
              5C 5C 1C 81 07 95 01 95 00 95 00 65 22 65 23 94 02 00 5D 7A 65 23
              94 05 6F 24 00 5D 5D 14 A0 5C 5C 78 6C FC CD 00 5D 5D 5D 5D 19 05
              95 01 E0 94 01 6C FC BE 9F 5C 5C 78 6C FC B7 00 5D 5D 5D 19 03 95
              01 95 00 95 00 E4 94 03 94 02 6C FC A3 00 5D 7A 00 7A 9F 5C 5C 78
              6C FC 97 00 1B 49 E9 9F 5C 1B 26 95 01 95 00 95 00 EA 94 03 6C FC
              83 94 02 28 FC 7E 1B FF A6 EF 9F 5B 1B 80 EE F1 9F 1B 0B 03 19 1B
              02 03 1B 14 9F 5C 5C 5C 78 28 FC 62 1B 80 D8 9E 5C 5C 5C 5C 5C 5C
              5C 78 29 01 03 FC 51 95 01 95 00 95 00 95 00 E4 94 01 6F 1F 9F 5C
              5C 5C 78 6C FC 3C 00 5D 5D 5D 19 06 03 27 1B 3B 03 27 16 01 1B 35
              03 2A 1B 19 95 01 94 02 95 01 95 00 95 00 94 00 AC 6F 26 AC 24 27
              5F AC 24 28 0B 03 2A 14 AD 33 01 1E 03 2B 1B 15 AD 6F 29 AC 24 27
              4D AC 25 28 4F 03 28 16 01 F8 24 27 69 03 2C 14 B1 AE 6F 24 00 5D
              5D 5D 19 08 9E 20 34 9E 5C 20 30 9E 5C 78 25 11 2A 9E 5C 5C 20 25
              9E 5C 5C 78 25 25 1E 9E 5C 5C 5C 20 18 9E 5C 5C 5C 78 25 21 10 9E
              5C 5C 5C 5C 20 09 9E 5C 5C 5C 5C 5C 1D FF 87 9E 20 37 94 01 25 2D
              32 9E 5C 20 2E 9E 5C 78 25 0B 28 9E 5C 5C 20 23 9E 5C 5C 78 25 2E
              1C 9E 5C 5C 5C 1C 16 65 2F 03 30 14 00 5D 5D 19 02 9E 5C 5C 5C 78
              2F 33 19 02 00 19 02 9E 20 28 94 01 25 31 23 9E 5C 20 1F 9E 5C 78
              25 0B 19 9E 5C 5C 20 14 9E 5C 5C 78 25 32 0D 9E 5C 5C 5C 20 07 9E
              5C 5C 5C 5C 1D 49 AD 24 03 4E 9E 19 02)
       (|qi|::|if| |qi|::|then| |qi|::|else| |qi|::|FAIL| |qi|::|qi_=|
        |qi|::|wrapper| |COMMON-LISP|::|AND| |qi|::|let| |qi|::|be| |qi|::|in|
        |COMMON-LISP|::|LET| |qi|::|the| |qi|::|result| |qi|::|of|
        |qi|::|dereferencing| |qi|::|lazyderef| |COMMON-LISP|::|IF| |qi|::|is|
        |qi|::|a| |qi|::|non-empty| |qi|::|list| |COMMON-LISP|::|CONSP|
        |qi|::|variable| |qi|::|var?| |qi|::|head| |COMMON-LISP|::|CAR|
        |qi|::|tail| |COMMON-LISP|::|CDR| |qi|::|rename| |qi|::|variables|
        |qi|::|and| |qi|::|rename_vars| |qi|::|bind| |qi|::|to|
        |COMMON-LISP|::|PROGV| |COMMON-LISP|::|LIST| |qi|::|quote|
        |qi|::|identical| |qi|::|empty?| |qi|::|true| |qi|::|false|
        |qi|::|symbol?| "~S is not a boolean~%" |COMMON-LISP|::|EQ|
        |COMMON-LISP|::|EQUAL| |qi|::|pop| |qi|::|stack| |qi|::|popstack|
        |qi|::|Continuation| |qi|::|call| |qi|::|continuation|
        |qi|::|process_continuation|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5360|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4131 4131 (DEFUN process_continuation (V1) ...)-463|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|process_continuation| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|process_continuation|
       #19Y(00 00 00 00 01 00 00 00 26 02 DA AE 73 00 16 2F 01 19 02)
       (|qi|::|call-literal| |qi|::|next-call|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|V1|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4133 4140 (DEFUN call-literal (V4) ...)-464|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|call-literal| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|call-literal|
       #67Y(00 00 00 00 01 00 00 00 26 02 9E 20 07 94 01 6F 00 88 01 18 9E 20
            07 94 01 6F 04 88 01 18 9E 20 1D 94 01 E0 95 03 33 00 16 5D 19 02
            94 01 6F 02 95 02 2F 03 1B 73 94 01 95 02 2F 05 1B 6B E1 2F 08 19
            02)
       (|qi|::|eager-call?| |qi|::|wrapper| |qi|::|map-eager|
        |qi|::|eagercalls| |qi|::|lazy-call?| |qi|::|lazycalls| |qi|::|quote|
        |qi|::|call-literal| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|V4|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4142 4144 (DEFUN eager-call? (V11) ...)-465|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|eager-call?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|eager-call?|
       #34Y(00 00 00 00 01 00 00 00 26 02 AD 24 00 0B AD 24 02 0A AD 24 03 09
            C9 19 02 C6 19 02 C6 19 02 C6 19 02)
       (|qi|::|eval!*| |qi|::|true| |qi|::|when!*| |qi|::|is!*| |qi|::|false|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|V11|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4146 4148 (DEFUN lazy-call? (V16) ...)-466|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|lazy-call?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|lazy-call?|
       #34Y(00 00 00 00 01 00 00 00 26 02 AD 24 00 0B AD 24 02 0A AD 24 03 09
            C9 19 02 C6 19 02 C6 19 02 C6 19 02)
       (|qi|::|eval*| |qi|::|true| |qi|::|when*| |qi|::|is*| |qi|::|false|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|V16|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4150 4152 (DEFUN map-eager (V17) ...)-467|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|map-eager| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|map-eager|
       #36Y(00 00 00 00 01 00 00 00 26 02 AD 24 00 0D AD 24 02 0C AD 24 04 0B
            E0 2F 07 19 02 C6 19 02 C8 19 02 CA 19 02)
       (|qi|::|eval!*| |qi|::|eval*| |qi|::|when!*| |qi|::|when*| |qi|::|is!*|
        |qi|::|is*| |qi|::|map-eager| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|V17|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4154 4157 (DEFUN eagercalls (V18) ...)-468|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|eagercalls| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|eagercalls|
       #43Y(00 00 00 00 01 00 00 00 26 02 63 DA AF 73 00 16 1B 0E 94 00 AC 6F
            01 AD 70 02 84 02 16 01 83 00 AC 8D 9F 6E 16 01 AC 31 B1 19 03)
       (|qi|::|eagerderefvars| |qi|::|extract_variables| |qi|::|lisp_code|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|V18|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4159 4162 (DEFUN lazycalls (V23) ...)-469|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|lazycalls| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|lazycalls|
       #43Y(00 00 00 00 01 00 00 00 26 02 63 DA AF 73 00 16 1B 0E 94 00 AC 6F
            01 AD 70 02 84 02 16 01 83 00 AC 8D 9F 6E 16 01 AC 31 B1 19 03)
       (|qi|::|lazyderefvars| |qi|::|extract_variables| |qi|::|lisp_code|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|V23|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4164 4180 (DEFUN eagerderefvars (V34) ...)-470|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|eagerderefvars| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|eagerderefvars|
       #136Y(00 00 00 00 01 00 00 00 26 02 9E 20 14 94 01 25 00 0F 9E 5C 20 0B
             9E 5C 5C 20 06 9E 5C 5C 5C 1D 34 9E 20 1B 94 01 25 01 16 9E 5C 20
             12 9E 5C 5C 20 0D 9E 5C 5C 5C 20 07 9E 5C 5C 5C 5C 1D 27 AD 6F 02
             88 03 3A 9E 20 3D 94 01 6C FF BD 95 02 28 FF B8 5D 19 02 95 01 DA
             94 01 9F 5C 78 6C FF AA 00 5D 5D 5D 19 03 95 01 95 00 DB 94 02 94
             02 6C FF 98 A0 5C 78 6C FF 92 00 5D 5D 5D 5D 19 04 DE AE 00 5D 1B
             4D 9E 19 02)
       (|qi|::|/.| |qi|::|let| |qi|::|variable?| |qi|::|wrapper| |qi|::|deref|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|V34|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4182 4198 (DEFUN lazyderefvars (V38) ...)-471|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|lazyderefvars| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|lazyderefvars|
       #136Y(00 00 00 00 01 00 00 00 26 02 9E 20 14 94 01 25 00 0F 9E 5C 20 0B
             9E 5C 5C 20 06 9E 5C 5C 5C 1D 34 9E 20 1B 94 01 25 01 16 9E 5C 20
             12 9E 5C 5C 20 0D 9E 5C 5C 5C 20 07 9E 5C 5C 5C 5C 1D 27 AD 6F 02
             88 03 3A 9E 20 3D 94 01 6C FF BD 95 02 28 FF B8 5D 19 02 95 01 DA
             94 01 9F 5C 78 6C FF AA 00 5D 5D 5D 19 03 95 01 95 00 DB 94 02 94
             02 6C FF 98 A0 5C 78 6C FF 92 00 5D 5D 5D 5D 19 04 DE AE 00 5D 1B
             4D 9E 19 02)
       (|qi|::|/.| |qi|::|let| |qi|::|variable?| |qi|::|wrapper|
        |qi|::|lazyderef|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|V38|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4200 4228 (DEFUN quote (V42) ...)-472|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|quote| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|quote|
       #217Y(00 00 00 00 01 00 00 00 26 02 9E 20 15 94 01 25 00 10 9E 5C 20 0C
             9E 5C 5C 20 07 9E 5C 5C 5C 1D 80 4F 9E 20 1B 94 01 25 01 16 9E 5C
             20 12 9E 5C 5C 20 0D 9E 5C 5C 5C 20 07 9E 5C 5C 5C 5C 1D 38 9E 20
             80 6C 94 01 25 02 80 66 9E 5C 20 80 61 9E 5C 5C 20 80 5B 9E 5C 5C
             5C 1C 80 54 95 01 DD 94 01 28 FF A6 14 9F 5C 78 6C FF 9F 00 5D 5D
             5D 19 03 95 01 DA 9E 5B 1B 6C 95 01 95 00 DB 94 02 94 02 6C FF 86
             A0 5C 78 6C FF 80 00 5D 5D 5D 5D 19 04 E0 E1 AF 33 00 16 1B 3D DD
             94 02 6C FF 6B 95 03 6C FF 66 00 5D 5D 1B 2D 9E 19 02 E9 D5 1B 23
             9E 20 06 AD 6F 04 88 05 58 9E 21 5D E2 E3 E4 E5 E6 00 5D 5D 5D 5D
             7A AE 70 0D 88 05 5C AD 24 0E 5B EB 9F 14 00 5D 5D 19 02)
       (|qi|::|/.| |qi|::|let| |qi|::|cons| |COMMON-LISP|::|CONS| |qi|::|list?|
        |qi|::|wrapper| |COMMON-LISP|::|LIST| |qi|::|quote| |qi|::|empty?|
        |qi|::|number?| |qi|::|variable?| |qi|::|string?| |qi|::|character?|
        |qi|::|anyof| |qi|::|_| |COMMON-LISP|::|GENSYM| "V"
        |COMMON-LISP|::|QUOTE|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|V42|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4230 4231 (DEFUN list? (V55) ...)-473|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|list?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|list?|
       #31Y(00 00 00 00 01 00 00 00 26 02 92 01 0C C5 19 02 95 01 29 01 03 00
            93 01 74 9E 21 74 C6 19 02)
       (|qi|::|true| |qi|::|false|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|V55|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4233 4236 (DEFUN anyof (V58 V59) ...)-474|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|anyof| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|anyof|
       #71Y(00 00 00 00 02 00 00 00 26 03 92 02 1F C5 19 03 C7 19 04 C7 19 05
            C5 19 05 95 03 AF 6C 0B AC 24 02 71 AC 24 00 70 C8 1B 14 93 02 61
            9F 20 13 94 02 AE 70 01 AC 24 02 58 AC 24 00 5D C8 14 AD 33 01 1E
            DE 2F 05 19 03)
       (|qi|::|false| |qi|::|apply| |qi|::|true| "~S is not a boolean~%"
        |qi|::|anyof| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V58| |qi|::|V59|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4238 4246 (DEFUN next-call (V62) ...)-475|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|next-call| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|next-call|
       #76Y(00 00 00 00 01 00 00 00 26 02 92 01 08 DA DB 00 1B 21 93 01 78 9E
            20 2C 9E 5B 20 28 9E 5B 78 25 02 22 9E 5B 5C 1C 1D DD 95 02 6C 66
            DE 63 00 5D 7A 00 5D 5D 5D 19 02 94 01 95 02 6F 05 00 7A 33 02 23
            19 02 9E 21 70 E0 2F 07 19 02)
       (|qi|::|popstack| |qi|::|Continuation| |qi|::|cut*| |COMMON-LISP|::|OR|
        |COMMON-LISP|::|RETURN| |qi|::|combine-into-continuation|
        |qi|::|next-call| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|V62|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4248 4259 (DEFUN combine-into-continuation (V63) ...)-476|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|combine-into-continuation| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|combine-into-continuation|
       #81Y(00 00 00 00 01 00 00 00 26 02 92 01 1A C5 19 02 DC DD 95 03 6C 0E
            00 5D 7A DE 63 00 5D 7A 00 5D 5D 5D 1B 23 93 01 66 9E 20 0F 9E 5B
            20 0B 9E 5B 78 25 01 05 9E 5B 5C 1D 57 9E 20 10 94 01 95 02 6C 62
            00 7A 33 02 23 14 2F 05 19 02 E0 2F 07 19 02)
       (|qi|::|Continuation| |qi|::|cut*| |COMMON-LISP|::|OR| |qi|::|popstack|
        |COMMON-LISP|::|RETURN| |qi|::|enclose|
        |qi|::|combine-into-continuation| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|V63|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4261 4262 (DEFUN enclose (V64) ...)-477|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|enclose| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|enclose|
       #23Y(00 00 00 00 01 00 00 00 26 02 DA DB 63 B0 00 5D 5D 7A 00 5D 5D 19
            02)
       (|COMMON-LISP|::|FUNCTION| |COMMON-LISP|::|LAMBDA|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|V64|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4264 4291 (DEFUN ask (V65) ...)-478|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|ask| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|ask|
       #101Y(00 00 00 00 01 00 00 00 26 02 9E 21 0C E9 AE 30 10 19 02 CE 1B 3F
             D2 19 0D 95 01 94 02 DA 70 01 AD 6F 02 AD A0 7A AF 6F 03 DE 00 7A
             00 5D 5D 7A 6F 05 AC AE 70 06 38 01 71 D4 AD 71 63 38 01 71 D4 AC
             AF 73 01 38 6F 07 6B 08 AD 8E AC 45 AC AE 73 01 3A 2F 0A 14 E5 AF
             AF B0 B0 2D 05 0C 92 04 FF B4 D3 19 0D)
       (|COMMON-LISP|::|*| |qi|::|concat| |qi|::|extract_variables|
        |qi|::|answer_clause| |qi|::|duff| |qi|::|process_continuation|
        |qi|::|quote-variables| |qi|::|calibrate| |qi|::|*logical-inferences*|
        |qi|::|infinite| |qi|::|round|
        "~%run time ~A seconds ~%~A logical inference~P~%~A LIPS~%"
        |qi|::|output| |qi|::|true| |qi|::|false|
        "ask expects a goal: not ~S~%" |qi|::|error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|V65|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4293 4297 (DEFUN quote-variables (V71 V72) ...)-479|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|quote-variables| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|quote-variables|
       #42Y(00 00 00 00 02 00 00 00 26 03 AE AE 70 00 88 01 10 9F 20 13 94 02
            AE 6C 71 95 03 AF 28 6C 5D 19 03 DC AF 00 5D 1B 77 9F 19 03)
       (|qi|::|element?| |qi|::|wrapper| |COMMON-LISP|::|QUOTE|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V71| |qi|::|V72|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4299 4299 (DEFUN answer_clause (V73) ...)-480|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|answer_clause| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|answer_clause|
       #19Y(00 00 00 00 01 00 00 00 26 02 DA AE 6F 01 00 5D 5D 19 02)
       (|qi|::|answer*| |qi|::|extract_variables|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|V73|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4301 4306 (DEFUN answer* (Vars Continuation) ...)-481|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|answer*| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|answer*|
       #45Y(00 00 00 00 02 00 00 00 26 03 93 02 03 AE 1B 11 02 19 03 94 00 DA
            AD AE 6F 01 2D 03 02 16 01 83 00 AC 8D 9F 6E 16 01 DD 2F 04 59 19
            03)
       ("~%~A = ~S~%" |qi|::|deref| |qi|::|output| "~%More?"
        |COMMON-LISP|::|Y-OR-N-P|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Vars| |qi|::|Continuation|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4308 4317 (DEFUN call-prolog (V85) ...)-482|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|call-prolog| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|call-prolog|
       #50Y(00 00 00 00 01 00 00 00 26 02 9E 21 0C DF AE 30 06 19 02 C8 19 03
            C9 19 03 94 01 DA 70 01 95 02 DC 00 7A 33 02 23 77 00 AC 02 22 67
            93 00 67 15 19 02)
       (|COMMON-LISP|::|*| |qi|::|concat| |qi|::|return-T| |qi|::|true|
        |qi|::|false| "call-prolog expects a goal: not ~S~%" |qi|::|error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|V85|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4319 4319 (DEFUN return-T NIL ...)-483|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|return-T| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|return-T| #13Y(00 00 00 00 00 00 00 00 26 01 02 19 01) ()
       |COMMON-LISP|::|NIL| () |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4321 4324 (DEFUN when* (V1039 V1040) ...)-484|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|when*| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|when*|
       #38Y(00 00 00 00 02 00 00 00 26 03 6B 00 32 B1 0F 00 AE 24 01 0A AE 24
            03 0B DE AF 30 05 19 03 AD 2F 02 19 03 00 19 03)
       (|qi|::|*logical-inferences*| |qi|::|true| |qi|::|popstack|
        |qi|::|false| "when expects a boolean, not ~S.~%" |qi|::|error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V1039| |qi|::|V1040|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4326 4326 (DEFUN eval* (V1045 V1050) ...)-485|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|eval*| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|eval*|
       #21Y(00 00 00 00 02 00 00 00 26 03 6B 00 32 B1 0F 00 AD 2F 01 19 03)
       (|qi|::|*logical-inferences*| |qi|::|popstack|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V1045| |qi|::|V1050|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4328 4330 (DEFUN is* (V1051 V1052 V1053) ...)-486|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|is*| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|is*|
       #35Y(01 00 00 00 03 00 00 00 26 04 6B 00 32 B1 0F 00 AF 00 7A AF 00 5D
            13 67 00 00 01 2F 01 11 18 01 00 19 04)
       (|qi|::|*logical-inferences*| |qi|::|popstack|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V1051| |qi|::|V1052| |qi|::|V1053|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4332 4337 (DEFUN rename_vars (V5777) ...)-487|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|rename_vars| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|rename_vars|
       #44Y(00 00 00 00 01 00 00 00 26 02 92 01 17 00 19 02 94 01 DA DB 00 5D
            7A 00 5D 7A 95 02 28 03 5D 19 02 93 01 69 9E 21 69 DC 2F 03 19 02)
       (|COMMON-LISP|::|GENSYM| "V" |qi|::|rename_vars|
        |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5777|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4339 4346 (DEFUN linearise_clause (V5789) ...)-488|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|linearise_clause| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|linearise_clause|
       #61Y(00 00 00 00 01 00 00 00 26 02 9E 20 15 9E 5C 20 11 9E 5C 78 25 00
            0B 9E 5C 5C 20 06 9E 5C 5C 5C 1D 08 E0 2F 07 19 02 9F 19 03 94 01
            6F 01 AC DC 70 03 24 04 72 AC AF 70 05 29 01 04 4D)
       (:|-| |qi|::|first_rpted_var| |qi|::|left_linear| |qi|::|qi_=|
        |qi|::|true| |qi|::|left_linearise_clause| |qi|::|linearise_clause|
        |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5789|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4348 4348 (DEFUN first_rpted_var (V5790) ...)-489|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|first_rpted_var| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|first_rpted_var|
       #17Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 2F 01 19 02)
       (|qi|::|flatten| |qi|::|fpr-help|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5790|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4350 4356 (DEFUN fpr-help (V5793) ...)-490|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|fpr-help| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|fpr-help|
       #79Y(00 00 00 00 01 00 00 00 26 02 9E 20 3C 94 01 6F 00 AC 24 01 14 AC
            24 03 2B C9 14 AD 33 01 1E C6 16 01 1B 21 C8 16 01 1B 1C 94 02 95
            03 70 02 AC 24 01 6C AC 24 03 6D C9 1B 60 9E 5B 19 02 95 01 29 01
            03 46 C8 F8 88 05 71 9E 21 72 CB 19 02)
       (|qi|::|variable?| |qi|::|true| |qi|::|element?| |qi|::|false|
        "~S is not a boolean~%" |qi|::|wrapper| |qi|::|left_linear|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5793|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4358 4363 (DEFUN flatten (V5794) ...)-491|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|flatten| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|flatten|
       #45Y(00 00 00 00 01 00 00 00 26 02 9E 20 04 9E 5B 21 06 9E 21 10 9E 19
            02 94 01 6C 6F 95 02 6C 6B 33 02 23 19 02 94 01 95 02 28 60 5D 19
            02)
       () (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5794|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4365 4375 (DEFUN left_linearise_clause (V5795 V5796) ...)-492|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|left_linearise_clause| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|left_linearise_clause|
       #70Y(00 00 00 00 02 00 00 00 26 03 9E 20 15 9E 5C 20 11 9E 5C 78 25 00
            0B 9E 5C 5C 20 06 9E 5C 5C 5C 1D 05 DF 2F 06 19 03 DB 6F 02 AF AD
            94 04 6E 03 03 DA 2E 04 14 B2 B0 00 5D 5D 7A A2 5C 5C 5B 7A 00 5D
            5D 5D 19 04)
       (:|-| "V" |qi|::|gensym| |qi|::|rename_V| |qi|::|unifpred|
        |qi|::|left_linearise_clause| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5795| |qi|::|V5796|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4377 4379 (DEFUN unifpred NIL ...)-493|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|unifpred| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|unifpred|
       #21Y(00 00 00 00 00 00 00 00 26 01 6B 00 88 01 03 C8 19 01 C7 19 01)
       (|qi|::|*occurs*| |qi|::|wrapper| |qi|::|=!*| |qi|::|=*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4381 4384 (DEFUN occurs-check (V632) ...)-494|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|occurs-check| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|occurs-check|
       #31Y(00 00 00 00 01 00 00 00 26 02 AD 24 00 09 AD 25 03 08 C9 0F 02 19
            02 C6 1B 79 DF 2F 06 19 02)
       (|COMMON-LISP|::|+| |qi|::|true| |qi|::|*occurs*| |COMMON-LISP|::|-|
        |qi|::|false| "occurs-check expects a + or a -" |qi|::|error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V632|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4386 4386 (SETQ *occurs* 'false)-495|
   #15Y(00 00 00 00 00 00 00 00 20 01 C5 0F 01 19 01)
   (|qi|::|false| |qi|::|*occurs*|)
   (|COMMON-LISP|::|NIL| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4388 4395 (DEFUN rename_V (V5806 V5807 V5808) ...)-496|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|rename_V| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|rename_V|
       #55Y(00 00 00 00 03 00 00 00 26 04 AF AE 70 00 88 01 18 9E 20 20 94 01
            95 02 B1 B1 AF 6C 6D AC AF 70 00 24 02 08 AC 9F 5D 19 07 9F 19 04
            AE B3 B3 B0 28 58 1B 72 9E 19 04)
       (|qi|::|qi_=| |qi|::|wrapper| |qi|::|true|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5806| |qi|::|V5807| |qi|::|V5808|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4397 4409 (DEFUN aum (V5811 V5812) ...)-497|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|aum| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|aum|
       #67Y(00 00 00 00 02 00 00 00 26 03 9F 20 19 9F 5B 20 15 9F 5C 20 11 9F
            5C 78 25 00 0B 9F 5C 5C 20 06 9F 5C 5C 5C 1D 05 DF 2F 06 19 03 94
            02 95 00 DB AD AE A4 5C 5C 78 70 02 00 5D 5D 7A B0 70 03 2F 04 19
            05)
       (:|-| |qi|::|mu| |qi|::|continuation_call| |qi|::|make_mu_application|
        |qi|::|mu_reduction| |qi|::|aum| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5811| |qi|::|V5812|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4411 4412 (DEFUN continuation_call (V5815 V5816) ...)-498|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|continuation_call| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|continuation_call|
       #19Y(00 00 00 00 02 00 00 00 26 03 AE AE 70 00 AE 30 01 19 03)
       (|qi|::|free_variables_in_body| |qi|::|cc-help|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5815| |qi|::|V5816|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4414 4415 (DEFUN free_variables_in_body (V5817 V5818) ...)-499|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|free_variables_in_body| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|free_variables_in_body|
       #20Y(00 00 00 00 02 00 00 00 26 03 AE 6F 00 AE 6F 00 30 01 19 03)
       (|qi|::|flatten| |qi|::|fv_decl_help|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5817| |qi|::|V5818|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4417 4423 (DEFUN fv_decl_help (V5821 V5822) ...)-500|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|fv_decl_help| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|fv_decl_help|
       #60Y(00 00 00 00 02 00 00 00 26 03 92 01 1C 00 19 03 94 01 AC B0 AE 95
            05 70 02 6C 0B 30 03 19 04 AE 95 02 29 02 05 00 93 01 64 9E 20 08
            94 01 AF 70 00 88 01 5C 9E 21 68 DE 2F 05 19 03)
       (|qi|::|free_variable_in?| |qi|::|wrapper| |qi|::|remove| |qi|::|adjoin|
        |qi|::|fv_decl_help| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5821| |qi|::|V5822|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4425 4426 (DEFUN adjoin (V5825 V5826) ...)-501|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|adjoin| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|adjoin|
       #25Y(00 00 00 00 02 00 00 00 26 03 AE AE 70 00 24 01 05 AE 9F 5D 19 03
            9E 19 03)
       (|qi|::|element?| |qi|::|true|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5825| |qi|::|V5826|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4428 4431 (DEFUN free_variable_in? (V5828 V5829) ...)-502|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|free_variable_in?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|free_variable_in?|
       #53Y(00 00 00 00 02 00 00 00 26 03 AE 6F 00 AC 24 01 10 AC 24 04 1D CA
            14 AD 33 01 1E C6 19 05 C9 19 05 AF AF 70 02 6F 03 AC 24 01 70 AC
            24 04 6F CA 1B 64 C9 19 04)
       (|qi|::|variable?| |qi|::|true| |qi|::|element?| |qi|::|not|
        |qi|::|false| "~S is not a boolean~%")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5828| |qi|::|V5829|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4433 4455 (DEFUN cc-help (V5832 V5833) ...)-503|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|cc-help| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|cc-help|
       #76Y(00 00 00 00 02 00 00 00 26 03 92 02 03 93 01 21 93 01 24 93 02 2E
            DD DB DE DF B2 E0 E1 E2 DB E3 B7 00 5D 5D 5D 7A 00 5D 5D 5D 5D 5D
            5D 5D 5D 19 03 DA DB DC 00 1B 75 DD DB DE DF B2 E0 E1 DA DB DC 00
            1B 5F E2 DB E3 B0 00 5D 1B 60)
       (|qi|::|pop| |qi|::|the| |qi|::|stack| |qi|::|rename| |qi|::|variables|
        |qi|::|in| |qi|::|and| |qi|::|then| |qi|::|call| |qi|::|continuation|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|V5832| |qi|::|V5833|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4457 4475 (DEFUN make_mu_application (V5834 V5835) ...)-504|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|make_mu_application| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|make_mu_application|
       #113Y(00 00 00 00 02 00 00 00 26 03 9F 20 1C 94 02 25 00 17 9F 5C 20 13
             9F 5C 5B 1C 0E 9F 5C 5C 20 09 9F 5C 5C 5C 1C 03 93 01 24 9F 20 1C
             94 02 25 00 17 9F 5C 20 13 9F 5C 5B 20 0E 9F 5C 5C 20 09 9F 5C 5C
             5C 1C 03 9E 21 0B DB 2F 02 19 03 9F 5C 5C 5B 19 03 95 02 94 00 DA
             94 01 DA 95 03 A2 5C 5D 7A 95 06 6C FF A4 00 5D 5D 7A 94 04 00 5D
             5D 19 05)
       (|qi|::|mu| |qi|::|make_mu_application| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5834| |qi|::|V5835|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4477 4749 (DEFUN mu_reduction (V5384) ...)-505|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|mu_reduction| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|mu_reduction|
       #1722Y(00 00 00 00 01 00 00 00 26 02 9E 20 80 5A 9E 5B 20 80 55 9E 5B 78
              25 00 80 4E 9E 5B 5C 20 80 48 9E 5B 5C 5B 20 80 41 9E 5B 5C 5B 78
              25 01 39 9E 5B 5C 5B 5C 20 32 9E 5B 5C 5B 5C 5C 20 2A 9E 5B 5C 5B
              5C 5C 78 25 02 20 9E 5B 5C 5B 5C 5C 5C 1C 17 9E 5B 5C 5C 20 11 9E
              5B 5C 5C 5C 1C 0A 9E 5C 20 06 9E 5C 5C 1D 82 CA 9E 20 80 9C 9E 5B
              20 80 97 9E 5B 78 25 00 80 90 9E 5B 5C 20 80 8A 9E 5B 5C 5B 20 80
              83 9E 5B 5C 5B 78 25 01 80 7A 9E 5B 5C 5B 5C 20 80 72 9E 5B 5C 5B
              5C 5B 20 80 69 9E 5B 5C 5B 5C 5B 78 25 01 80 5E 9E 5B 5C 5B 5C 5B
              5C 20 80 54 9E 5B 5C 5B 5C 5B 5C 5C 20 80 49 9E 5B 5C 5B 5C 5B 5C
              5C 78 25 02 3D 9E 5B 5C 5B 5C 5B 5C 5C 5C 1C 32 9E 5B 5C 5B 5C 5C
              20 2A 9E 5B 5C 5B 5C 5C 78 25 03 20 9E 5B 5C 5B 5C 5C 5C 1C 17 9E
              5B 5C 5C 20 11 9E 5B 5C 5C 5C 1C 0A 9E 5C 20 06 9E 5C 5C 1D 82 31
              9E 20 80 9C 9E 5B 20 80 97 9E 5B 78 25 00 80 90 9E 5B 5C 20 80 8A
              9E 5B 5C 5B 20 80 83 9E 5B 5C 5B 78 25 01 80 7A 9E 5B 5C 5B 5C 20
              80 72 9E 5B 5C 5B 5C 5B 20 80 69 9E 5B 5C 5B 5C 5B 78 25 01 80 5E
              9E 5B 5C 5B 5C 5B 5C 20 80 54 9E 5B 5C 5B 5C 5B 5C 5C 20 80 49 9E
              5B 5C 5B 5C 5B 5C 5C 78 25 03 3D 9E 5B 5C 5B 5C 5B 5C 5C 5C 1C 32
              9E 5B 5C 5B 5C 5C 20 2A 9E 5B 5C 5B 5C 5C 78 25 03 20 9E 5B 5C 5B
              5C 5C 5C 1C 17 9E 5B 5C 5C 20 11 9E 5B 5C 5C 5C 1C 0A 9E 5C 20 06
              9E 5C 5C 1D 81 9B 9E 20 30 9E 5B 20 2C 9E 5B 78 25 00 26 9E 5B 5C
              20 21 9E 5B 5C 5C 20 1B 9E 5B 5C 5C 5C 1C 14 9E 5C 20 10 9E 5C 5C
              1C 0B DE 9F 5B 5C 78 70 05 88 06 81 6F 9E 20 80 64 9E 5B 20 80 5F
              9E 5B 78 25 00 80 58 9E 5B 5C 20 80 52 9E 5B 5C 5B 20 80 4B 9E 5B
              5C 5B 78 25 01 80 42 9E 5B 5C 5B 5C 20 3B 9E 5B 5C 5B 5C 5C 20 33
              9E 5B 5C 5B 5C 5C 78 25 03 29 9E 5B 5C 5B 5C 5C 5C 1C 20 9E 5B 5C
              5C 20 1A 9E 5B 5C 5C 5C 1C 13 9E 5C 20 0F 9E 5C 5C 1C 0A 9E 5B 5C
              5B 5C 78 24 04 81 07 9E 20 32 9E 5B 20 2E 9E 5B 78 25 00 28 9E 5B
              5C 20 23 9E 5B 5C 5C 20 1D 9E 5B 5C 5C 5C 1C 16 9E 5C 20 12 9E 5C
              5C 1C 0D 9E 5B 5C 78 9F 5C 78 70 07 88 06 80 DC 9E 20 2F 9E 5B 20
              2B 9E 5B 78 25 00 25 9E 5B 5C 20 20 9E 5B 5C 5C 20 1A 9E 5B 5C 5C
              5C 1C 13 9E 5C 20 0F 9E 5C 5C 1C 0A 9E 5B 5C 78 6F 09 88 06 80 BE
              9E 20 81 D9 9E 5B 20 81 D4 9E 5B 78 25 00 81 CD 9E 5B 5C 20 81 C7
              9E 5B 5C 5B 20 81 C0 9E 5B 5C 5B 78 25 01 81 B7 9E 5B 5C 5B 5C 20
              81 AF 9E 5B 5C 5B 5C 5C 20 81 A6 9E 5B 5C 5B 5C 5C 78 25 03 81 9B
              9E 5B 5C 5B 5C 5C 5C 1C 81 91 9E 5B 5C 5C 20 81 8A 9E 5B 5C 5C 5C
              1C 81 82 9E 5C 20 81 7D 9E 5C 5C 1C 81 77 9E 5B 5C 5B 5C 78 6F 09
              89 06 81 6B 94 01 95 00 C5 14 9E 5B 5C 78 9F 5C 5D 7A A1 5C 7A 29
              01 05 FC D8 94 01 95 00 C5 1B 68 94 01 95 00 DA 9E 5B 5C 1B 60 94
              01 95 00 C5 1B 57 9E 5B 5C 5C 78 29 01 03 FC B6 94 01 95 00 A0 5C
              78 94 01 9F 5C 78 6C FC A7 2D 03 08 19 04 94 01 95 00 E4 94 01 E5
              A3 5C 78 E6 A2 5C 78 6C FC 90 00 5D 5D 5D 5D 5D 5D 19 04 94 01 95
              00 E8 6F 0F E4 AD E5 EA EB EC ED A8 5C 5D 5D 5D 7A E6 EE B2 EF F0
              F1 A8 5B 5C 78 00 5D 5D 5D 5D 7A F2 A6 5C 78 6C FC 5C F3 F4 00 5D
              5D 5D 5D 5D 7A 00 5D 5D 5D 5D 5D 5D 19 05 94 01 95 00 94 00 95 01
              94 00 F5 6F 0F E4 AD E5 EA EB EC ED AB 5C 5D 5D 5D 7A E6 EE B2 EF
              F0 F1 B9 00 5D 5D 5D 5D 7A F2 B5 6C FC 1E F3 EE B7 EF F6 F7 00 5D
              5D 5D 7A F2 65 1E BD F1 BC E6 BF 6C FC 08 00 5D 5D 5D 5D 5D 7A F3
              03 1A 1B 82 90 94 01 95 00 94 00 95 00 94 00 95 01 95 01 65 20 6F
              0F E4 AD E5 EA EB EC ED 04 10 5C 5D 5D 5D 7A E6 EE B2 EF F6 65 21
              65 22 00 5D 5D 5D 5D 7A F2 DA DB 94 0B AA 5D 7A DA DB AA 5C 78 04
              0F 5D 7A 04 12 5C 5D 7A EA 65 23 EC BA 00 5D 5D 5D 7A 00 5D 7A 00
              5D 5D 7A EA 65 24 EC B8 00 5D 5D 5D 7A 00 5D 7A 6C FB 95 F3 F4 00
              5D 5D 5D 5D 5D 7A 00 5D 5D 5D 5D 5D 5D 19 0A 9E 20 80 66 9E 5B 20
              80 61 9E 5B 78 25 00 80 5A 9E 5B 5C 20 80 54 9E 5B 5C 5B 20 80 4D
              9E 5B 5C 5B 78 25 01 80 44 9E 5B 5C 5B 5C 20 3D 9E 5B 5C 5B 5C 5C
              20 35 9E 5B 5C 5B 5C 5C 78 25 03 2B 9E 5B 5C 5B 5C 5C 5C 1C 22 9E
              5B 5C 5C 20 1C 9E 5B 5C 5C 5C 1C 15 9E 5C 20 11 9E 5C 5C 1C 0C 9E
              5B 5C 5B 5C 78 6F 0D 88 06 FE 92 9E 20 2F 9E 5B 20 2B 9E 5B 78 25
              00 25 9E 5B 5C 20 20 9E 5B 5C 5C 20 1A 9E 5B 5C 5C 5C 1C 13 9E 5C
              20 0F 9E 5C 5C 1C 0A 9E 5B 5C 78 6F 0D 88 06 FE 9D 9E 20 80 8F 9E
              5B 20 80 8A 9E 5B 78 25 00 80 83 9E 5B 5C 20 80 7D 9E 5B 5C 5B 20
              80 76 9E 5B 5C 5B 78 25 01 80 6D 9E 5B 5C 5B 5C 20 80 65 9E 5B 5C
              5B 5C 5B 20 80 5C 9E 5B 5C 5B 5C 5B 78 25 1F 80 51 9E 5B 5C 5B 5C
              5B 5C 20 80 47 9E 5B 5C 5B 5C 5B 5C 5C 20 3D 9E 5B 5C 5B 5C 5B 5C
              5C 5C 1C 32 9E 5B 5C 5B 5C 5C 20 2A 9E 5B 5C 5B 5C 5C 78 25 03 20
              9E 5B 5C 5B 5C 5C 5C 1C 17 9E 5B 5C 5C 20 11 9E 5B 5C 5C 5C 1C 0A
              9E 5C 20 06 9E 5C 5C 1D FE 59 9E 20 80 FD 9E 5B 20 80 F8 9E 5B 78
              25 00 80 F1 9E 5B 5C 20 80 EB 9E 5B 5C 5B 20 80 E4 9E 5B 5C 5B 78
              25 1F 80 DB 9E 5B 5C 5B 5C 20 80 D3 9E 5B 5C 5B 5C 5C 20 80 CA 9E
              5B 5C 5B 5C 5C 5C 1C 80 C0 9E 5B 5C 5C 20 80 B9 9E 5B 5C 5C 5C 1C
              80 B1 9E 5C 20 80 AC 9E 5C 5C 1C 80 A6 94 01 95 00 94 00 95 01 95
              01 65 25 6F 0F E4 AD E5 EA EB EC ED AB 5C 5D 5D 5D 7A E6 EE B2 EF
              F6 65 21 65 22 00 5D 5D 5D 5D 7A F2 DA 94 0A DA A9 5C 78 AB 5D 7A
              EA 65 23 EC BA 00 5D 5D 5D 7A 00 5D 7A 00 5D 5D 7A EA 65 24 EC B8
              00 5D 5D 5D 7A 00 5D 7A 6C F9 A3 F3 EE B7 EF F6 F7 00 5D 5D 5D 7A
              F2 65 26 EA 65 27 E6 BE 6F 28 65 29 F2 65 1E C4 6F 2A F1 C3 E6 94
              1B 6C F9 7E 00 5D 5D 5D 5D 5D 7A 00 5D 5D 5D 5D 5D 5D 5D 7A F3 03
              1A 14 00 5D 5D 5D 5D 5D 7A 00 5D 5D 5D 5D 5D 7A 00 5D 5D 5D 5D 5D
              5D 19 08 9E 19 02)
       (|qi|::|mu| |qi|::|mode| |COMMON-LISP|::|+| |COMMON-LISP|::|-| |qi|::|_|
        |qi|::|qi_=| |qi|::|wrapper| |qi|::|ephemeral_variable?| |qi|::|subst|
        |qi|::|variable?| |qi|::|let| |qi|::|be| |qi|::|in|
        |qi|::|prolog_constant?| "X" |qi|::|gensym| |qi|::|the| |qi|::|result|
        |qi|::|of| |qi|::|dereferencing| |qi|::|if| |qi|::|is|
        |qi|::|identical| |qi|::|to| |qi|::|then| |qi|::|else| |qi|::|FAIL| "X"
        |qi|::|a| |qi|::|variable| |qi|::|bind| |qi|::|cons| "X"
        |qi|::|non-empty| |qi|::|list| |qi|::|tail| |qi|::|head| "X"
        |qi|::|rename| |qi|::|variables| |qi|::|extract_variables| |qi|::|and|
        |qi|::|remove_modes|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5384|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4751 4762 (DEFUN remove_modes (V5410) ...)-506|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|remove_modes| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|remove_modes|
       #91Y(00 00 00 00 01 00 00 00 26 02 9E 20 1B 94 01 25 00 16 9E 5C 20 12
            9E 5C 5C 20 0D 9E 5C 5C 78 25 01 06 9E 5C 5C 5C 1D 1E 9E 20 2A 94
            01 25 00 25 9E 5C 20 21 9E 5C 5C 20 1C 9E 5C 5C 78 25 02 15 9E 5C
            5C 5C 1C 0F 9E 5C 78 29 01 03 FF BC DD AE 33 00 16 19 02 9E 21 76
            9E 19 02)
       (|qi|::|mode| |COMMON-LISP|::|+| |COMMON-LISP|::|-|
        |qi|::|remove_modes|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5410|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4764 4766 (DEFUN ephemeral_variable? (V5886 V5887) ...)-507|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|ephemeral_variable?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|ephemeral_variable?|
       #50Y(00 00 00 00 02 00 00 00 26 03 AE 6F 00 AC 24 01 10 AC 24 02 1A C8
            14 AD 33 01 1E C6 19 05 C7 19 05 AE 6F 00 AC 24 01 73 AC 24 02 72
            C8 1B 67 C7 19 04)
       (|qi|::|variable?| |qi|::|true| |qi|::|false| "~S is not a boolean~%")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5886| |qi|::|V5887|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4768 4772 (DEFUN prolog_constant? (V5902) ...)-508|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|prolog_constant?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|prolog_constant?|
       #64Y(00 00 00 00 01 00 00 00 26 02 93 01 21 AD 6F 01 88 02 1E AD 6F 03
            88 02 1B AD 6F 04 88 02 18 AD 6F 05 88 02 15 AD 6F 06 88 02 12 CC
            19 02 C5 19 02 C5 19 02 C5 19 02 C5 19 02 C5 19 02 C5 19 02)
       (|qi|::|true| |qi|::|symbol?| |qi|::|wrapper| |qi|::|number?|
        |qi|::|boolean?| |qi|::|string?| |qi|::|character?| |qi|::|false|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5902|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4774 4781 (DEFUN lazyderef (X) ...)-509|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|lazyderef| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|lazyderef|
       #44Y(00 00 00 00 01 00 00 00 26 02 AD 8F 18 14 AD 8D 57 10 93 01 0D AD
            02 22 09 AD 72 A6 DA 71 31 8C 23 03 9E 19 02 AD 71 55 29 01 03 5E)
       (0.) (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|X|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4783 4787 (DEFUN var? (X) ...)-510|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|var?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|var?|
       #38Y(00 00 00 00 01 00 00 00 26 02 AD 32 18 1F 15 9E 59 59 1F 10 AD 02
            5A 59 1F 0A AD 72 A6 DA 71 31 31 23 19 02 19 02)
       (0.) (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|X|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4789 4790 (DEFUN =* (X Y Continuation) ...)-511|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|=*| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|=*|
       #22Y(00 00 00 00 03 00 00 00 26 04 AF 6F 00 AF 6F 00 AF 2D 03 01 19 04)
       (|qi|::|lazyderef| |qi|::|lzy=*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|X| |qi|::|Y| |qi|::|Continuation|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4792 4804 (DEFUN lzy=* (X Y Continuation) ...)-512|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|lzy=*| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|lzy=*|
       #124Y(01 00 00 00 03 00 00 00 26 04 00 2B 03 7F 04 00 00 7F 03 00 01 7F
             02 00 02 68 00 00 68 01 01 8E 14 27 68 00 00 88 01 28 68 00 01 89
             01 80 40 68 00 01 7B 01 06 01 00 14 61 01 13 08 00 00 00 02 14 2F
             00 11 18 01 00 19 05 68 00 02 2F 00 19 05 68 00 00 7B 01 06 01 01
             1B 5D 06 00 00 78 6F 02 06 01 01 78 6F 02 AE 6D 03 01 29 03 08 FF
             9B 06 00 00 20 05 06 00 01 21 61 00 19 05)
       (|qi|::|popstack| |qi|::|var?| |qi|::|lazyderef|
        #Y(|qi|::|lzy=*-1|
           #30Y(00 00 00 00 00 00 00 00 26 01 07 00 01 79 6F 01 07 00 02 79 6F
                01 69 00 03 2D 03 02 19 01)
           (|COMMON-LISP|::|NIL| |qi|::|lazyderef| |qi|::|lzy=*|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
           |COMMON-LISP|::|NIL| 1))
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|X| |qi|::|Y| |qi|::|Continuation|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4806 4806 (DEFUN popstack (Continuation) ...)-513|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|popstack| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|popstack| #15Y(00 00 00 00 01 00 00 00 26 02 AD 36 00 19 02) ()
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Continuation|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4808 4811 (DEFUN deref (x) ...)-514|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|deref| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|deref|
       #38Y(00 00 00 00 01 00 00 00 26 02 9E 21 07 AD 88 00 0E 9E 19 02 94 01
            6C 72 95 02 28 6E 5D 19 02 AD 71 55 29 01 03 64)
       (|qi|::|boundvar?|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|x|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4813 4814 (DEFUN boundvar? (X) ...)-515|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|boundvar?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|boundvar?|
       #22Y(00 00 00 00 01 00 00 00 26 02 AD 2F 00 1F 05 AD 31 57 19 02 19 02)
       (|qi|::|var?|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|X|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4816 4819 (DEFUN return* (Val Continuation) ...)-516|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|return*| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|return*|
       #21Y(00 00 00 00 02 00 00 00 26 03 6B 00 32 B1 0F 00 AE 2F 01 19 03)
       (|qi|::|*logical-inferences*| |qi|::|deref|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Val| |qi|::|Continuation|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4821 4823 (DEFUN bind* (Var Val Continuation) ...)-517|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|bind*| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|bind*|
       #35Y(01 00 00 00 03 00 00 00 26 04 6B 00 32 B1 0F 00 AF 7B 01 AF 61 01
            13 67 00 00 01 2F 01 11 18 01 00 19 04)
       (|qi|::|*logical-inferences*| |qi|::|popstack|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Var| |qi|::|Val| |qi|::|Continuation|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4825 4828 (DEFUN fail* (Continuation) ...)-518|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|fail*| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|fail*|
       #19Y(00 00 00 00 01 00 00 00 26 02 6B 00 32 B1 0F 00 00 19 02)
       (|qi|::|*logical-inferences*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Continuation|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4830 4831 (DEFUN ==* (X Y Continuation) ...)-519|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|==*| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|==*|
       #22Y(00 00 00 00 03 00 00 00 26 04 AF 6F 00 AF 6F 00 AF 2D 03 01 19 04)
       (|qi|::|lazyderef| |qi|::|lzy==*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|X| |qi|::|Y| |qi|::|Continuation|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4833 4841 (DEFUN lzy==* (X Y Continuation) ...)-520|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|lzy==*| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|lzy==*|
       #74Y(00 00 00 00 03 00 00 00 26 04 00 2B 03 7F 04 00 00 7F 03 00 01 7F
            02 00 02 68 00 00 68 01 01 8E 14 0D 06 00 00 20 05 06 00 01 21 0A
            00 19 05 68 00 02 2F 00 19 05 06 00 00 78 6F 01 06 01 01 78 6F 01
            AE 6D 02 01 29 03 08 40)
       (|qi|::|popstack| |qi|::|lazyderef|
        #Y(|qi|::|lzy==*-1|
           #30Y(00 00 00 00 00 00 00 00 26 01 07 00 01 79 6F 01 07 00 02 79 6F
                01 69 00 03 2D 03 02 19 01)
           (|COMMON-LISP|::|NIL| |qi|::|lazyderef| |qi|::|lzy==*|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
           |COMMON-LISP|::|NIL| 1))
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|X| |qi|::|Y| |qi|::|Continuation|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4843 4844 (DEFUN =!* (X Y Continuation) ...)-521|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|=!*| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|=!*|
       #22Y(00 00 00 00 03 00 00 00 26 04 AF 6F 00 AF 6F 00 AF 2D 03 01 19 04)
       (|qi|::|lazyderef| |qi|::|lzy=!*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|X| |qi|::|Y| |qi|::|Continuation|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4846 4858 (DEFUN lzy=!* (X Y Continuation) ...)-522|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|lzy=!*| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|lzy=!*|
       #152Y(01 00 00 00 03 00 00 00 26 04 00 2B 03 7F 04 00 00 7F 03 00 01 7F
             02 00 02 68 00 00 68 01 01 8E 14 80 42 68 00 00 89 01 0D 68 00 00
             68 01 01 6F 02 70 03 24 04 36 68 00 01 89 01 80 4E 68 00 01 68 01
             00 6F 02 70 03 25 04 80 40 68 00 01 7B 01 06 01 00 14 61 01 13 08
             00 00 00 02 14 2F 00 11 18 01 00 19 05 68 00 02 2F 00 19 05 68 00
             00 7B 01 06 01 01 1B 5D 06 00 00 78 6F 05 06 01 01 78 6F 05 AE 6D
             06 01 29 03 08 FF 7F 06 00 00 20 05 06 00 01 21 61 00 19 05)
       (|qi|::|popstack| |qi|::|var?| |qi|::|deref| |qi|::|occurs?|
        |qi|::|false| |qi|::|lazyderef|
        #Y(|qi|::|lzy=!*-1|
           #30Y(00 00 00 00 00 00 00 00 26 01 07 00 01 79 6F 01 07 00 02 79 6F
                01 69 00 03 2D 03 02 19 01)
           (|COMMON-LISP|::|NIL| |qi|::|lazyderef| |qi|::|lzy=!*|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
           |COMMON-LISP|::|NIL| 1))
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|X| |qi|::|Y| |qi|::|Continuation|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4860 4871 (DEFUN bagof* (Var Pred Terms ...) ...)-523|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|bagof*| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|bagof*|
       #83Y(01 00 00 00 05 00 00 00 26 06 00 2B 01 7F 06 00 00 6B 00 32 B1 0F
            00 9D 2B 01 DB 32 AA 0B 00 00 14 63 30 02 B2 DD 70 04 B2 AE 6D 05
            01 7B 01 33 02 23 37 00 68 00 00 71 55 72 64 68 01 00 31 5B B1 7B
            01 AD 61 01 13 67 00 00 04 2F 06 11 18 01 00 19 09)
       (|qi|::|*logical-inferences*| "Store" |COMMON-LISP|::|SET|
        |COMMON-LISP|::|*| |qi|::|concat|
        #Y(|qi|::|bagof*-1|
           #20Y(00 00 00 00 00 00 00 00 26 01 69 01 01 69 00 01 30 01 19 01)
           (|COMMON-LISP|::|NIL| |qi|::|store*|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
           |COMMON-LISP|::|NIL| 1)
        |qi|::|popstack|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Var| |qi|::|Pred| |qi|::|Terms| |qi|::|Out|
        |qi|::|Continuation|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4873 4876 (DEFUN store* (Var Store) ...)-524|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|store*| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|store*|
       #29Y(00 00 00 00 02 00 00 00 26 03 6B 00 32 B1 0F 00 AD AF 6F 01 AF 31
            55 7A 30 02 00 19 03)
       (|qi|::|*logical-inferences*| |qi|::|deref| |COMMON-LISP|::|SET|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Var| |qi|::|Store|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4878 4881 (DEFUN not* (Pred Terms Continuation) ...)-525|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|not*| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|not*|
       #33Y(00 00 00 00 03 00 00 00 26 04 AF DA 70 01 AF DC 7B 01 33 02 23 37
            00 1C 05 AD 2F 03 19 04 00 19 04)
       (|COMMON-LISP|::|*| |qi|::|concat|
        #Y(|qi|::|not*-1| #13Y(00 00 00 00 00 00 00 00 26 01 02 19 01) ()
           |COMMON-LISP|::|NIL| () |COMMON-LISP|::|NIL| 1)
        |qi|::|popstack|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Pred| |qi|::|Terms| |qi|::|Continuation|) |COMMON-LISP|::|NIL|
       1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4883 4885 (DEFUN call* (F Terms Continuation) ...)-526|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|call*| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|call*|
       #30Y(00 00 00 00 03 00 00 00 26 04 6B 00 32 B1 0F 00 AF DB 70 02 AF AF
            7B 01 33 02 23 9B 00 04)
       (|qi|::|*logical-inferences*| |COMMON-LISP|::|*| |qi|::|concat|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|F| |qi|::|Terms| |qi|::|Continuation|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4887 4916 (DEFUN typecheck* (FP1 FP2 Continuation) ...)-527|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|typecheck*| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|typecheck*|
       #202Y(00 00 00 00 03 00 00 00 26 04 00 2B 03 7F 04 00 00 7F 03 00 01 7F
             02 00 02 6B 00 32 B1 0F 00 2E 01 14 AD 6D 02 01 30 03 1E 80 9D 6B
             00 32 B1 0F 00 2E 04 14 AD 6D 05 01 30 03 1E 80 8B 6B 00 32 B1 0F
             00 68 00 00 6F 06 AC 8E 16 80 6A 16 01 1E 80 76 6B 00 32 B1 0F 00
             9D 2B 01 E3 32 AA 0B 00 00 68 01 00 6F 06 6F 0A 6F 0B AD 6D 0C 01
             30 03 16 01 3F 19 05 B1 AE 68 09 01 68 0A 02 2D 04 08 16 07 1E 80
             43 1B 4B 94 00 95 01 6F 06 9D 59 1C 64 16 07 1E 33 1B FF BA 95 01
             6F 06 AC 8E 16 67 16 05 1E 24 1B FF AB 94 00 6F 06 AC CC 5A 1C 68
             16 04 1E 14 1B FF 9B 94 00 95 01 6F 06 AC 8E 16 66 16 03 1E 03 1B
             FF 8A 19 05)
       (|qi|::|*logical-inferences*| |qi|::|maximum_inferences_exceeded?|
        #Y(|qi|::|typecheck*-1|
           #20Y(00 00 00 00 00 00 00 00 26 01 2E 01 14 69 00 03 30 02 19 01)
           (|COMMON-LISP|::|NIL| |qi|::|error_max_inferences| |qi|::|eval*|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
           |COMMON-LISP|::|NIL| 1)
        |qi|::|when*| |qi|::|spy?|
        #Y(|qi|::|typecheck*-2|
           #28Y(00 00 00 00 00 00 00 00 26 01 69 00 01 6F 01 6F 02 6F 03 2A 14
                6D 04 01 30 05 19 01)
           (|COMMON-LISP|::|NIL| |qi|::|lazyderef| |qi|::|typing?| |qi|::|not|
            #Y(|qi|::|typecheck*-2-1|
               #26Y(00 00 00 00 00 00 00 00 26 01 69 00 01 69 00 02 2A 14 6D 01
                    01 2D 03 02 19 01)
               (|COMMON-LISP|::|NIL|
                #Y(|qi|::|typecheck*-2-1-1|
                   #17Y(00 00 00 00 00 00 00 00 26 01 69 00 03 2F 01 19 01)
                   (|COMMON-LISP|::|NIL| |qi|::|fail*|)
                   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
                   () |COMMON-LISP|::|NIL| 1)
                |qi|::|show_checking*|)
               (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
               |COMMON-LISP|::|NIL| 1)
            |qi|::|when*|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
           |COMMON-LISP|::|NIL| 1)
        |qi|::|lazyderef| |qi|::|$$| |qi|::|tt*| "V" |qi|::|typing?|
        |qi|::|not|
        #Y(|qi|::|typecheck*-3|
           #28Y(00 00 00 00 00 00 00 00 26 01 69 00 01 6F 01 2E 02 14 2A 14 6D
                03 01 2D 03 04 19 01)
           (|COMMON-LISP|::|NIL| |qi|::|lazyderef| |qi|::|usertypes|
            #Y(|qi|::|typecheck*-3-1|
               #27Y(00 00 00 00 00 00 00 00 26 01 69 00 01 69 01 01 69 01 02 69
                    01 03 2D 04 01 19 01)
               (|COMMON-LISP|::|NIL| |qi|::|try_usetypes*|)
               (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
               |COMMON-LISP|::|NIL| 1)
            |qi|::|is*|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
           |COMMON-LISP|::|NIL| 1))
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|FP1| |qi|::|FP2| |qi|::|Continuation|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|4918 5294 (DEFUN tt* (FP1 FP2 FP3 ...) ...)-528|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|tt*| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|tt*|
       #2619Y(03 00 01 00 04 00 00 00 26 05 00 2B 04 7F 05 00 00 7F 04 00 01 7F
              03 00 02 7F 02 00 03 47 00 8A 18 6B 01 32 B1 0F 01 2E 02 14 B0 6D
              03 01 30 04 1E 8A 03 6B 01 32 B1 0F 01 68 03 00 68 04 01 68 05 02
              68 06 03 2D 04 05 1E 89 EB 6B 01 32 B1 0F 01 A0 2B 01 E0 32 AA 0B
              00 00 68 04 00 6F 07 6F 08 AD 6D 09 01 30 04 16 01 1E 89 CA 6B 01
              32 B1 0F 01 A0 2B 01 E4 32 AA 0B 00 00 68 04 00 6F 07 6F 0B AD 6D
              0C 01 30 04 16 01 1E 89 A9 6B 01 32 B1 0F 01 68 03 00 6F 07 9D 59
              1C 81 94 16 01 1E 89 94 6B 01 32 B1 0F 01 68 03 00 6F 07 AC 8E 16
              81 D1 16 01 1E 89 7F 6B 01 32 B1 0F 01 68 03 00 6F 07 AC 8E 16 82
              A9 16 01 1E 89 6A 6B 01 32 B1 0F 01 68 03 00 6F 07 AC 8E 16 83 94
              16 01 1E 89 55 6B 01 32 B1 0F 01 68 03 00 6F 07 AC 8E 16 84 4A 16
              01 1E 89 40 6B 01 32 B1 0F 01 68 03 00 6F 07 AC 8E 16 84 47 16 01
              1E 89 2B 6B 01 32 B1 0F 01 68 03 00 6F 07 AC 8E 16 85 3B 16 01 1E
              89 16 6B 01 32 B1 0F 01 68 03 00 6F 07 AC 8E 16 85 87 16 01 1E 89
              01 6B 01 32 B1 0F 01 68 03 00 6F 07 AC 8E 16 86 BA 16 01 1E 88 EC
              6B 01 32 B1 0F 01 68 03 00 6F 07 AC 8E 16 87 23 16 01 1E 88 D7 6B
              01 32 B1 0F 01 68 03 00 6F 07 AC 8E 16 87 50 16 01 1E 88 C2 6B 01
              32 B1 0F 01 68 03 00 6F 07 AC 8E 16 87 4D 16 01 1E 88 AD 6B 01 32
              B1 0F 01 68 03 00 6F 07 AC 8F 16 88 1F 94 00 6F 07 AC 03 43 5A 1D
              87 AB 95 01 6F 07 AC 8F 16 87 9A 94 00 95 01 6F 07 9D 59 1D 87 87
              AD 68 09 01 68 0A 02 68 0B 03 28 FE 45 1C 87 77 00 16 05 1B 88 68
              95 00 6F 07 9D 59 1D 06 68 08 03 89 0E 6C 16 05 1E 88 55 1B FE BE
              95 01 6F 07 AC 8E 16 62 16 04 1E 88 45 1B FE AE 94 00 6F 07 AC D2
              5A 1C 67 16 03 1E 88 34 1B FE 9D 00 11 16 02 18 01 00 1B 88 27 AC
              7B 01 E7 EA 72 AA 00 5D 7A 61 01 13 08 00 00 05 03 14 89 0E 60 11
              18 01 00 16 02 1E 88 08 1B FE 71 68 04 01 6F 07 9D 21 FF BA AC 88
              0F 51 16 02 1E 87 F3 1B FE 5C 9E 2B 01 EB 32 AA 0B 00 00 B0 68 01
              00 EC 68 0C 01 7B 03 68 0B 02 AF 6D 13 01 28 FD A7 16 06 1E 87 CE
              1B FE 4C A3 2B 01 9E 5B 0B 00 00 95 01 6F 07 9D 59 1C 4B 16 05 1E
              87 B6 1B FE 34 94 00 95 01 6F 07 AC 8E 16 5E 16 03 1E 87 A4 1B FE
              22 B4 68 02 00 68 11 02 B0 6D 15 01 28 FD 67 16 0C 1E 87 8E 1B FE
              21 A1 2B 01 9E 5B 0B 00 00 95 01 6F 07 9D 59 1C 5A 16 0C 1E 87 76
              1B FE 09 95 01 6F 07 AC 8E 16 60 16 0A 1E 87 66 1B FD F9 94 00 6F
              07 AC D2 5A 1C 67 16 09 1E 87 55 1B FD E8 9F 2B 01 F0 32 AA 0B 00
              00 AD 7B 01 E7 68 02 00 00 5D 7A 61 01 13 67 00 00 05 08 00 00 00
              00 14 08 00 00 0C 02 14 67 00 00 00 6D 17 01 28 FC F6 11 18 01 00
              16 09 1E 87 19 1B FD AC 68 0A 01 6F 07 9D 21 FF AA AC 88 0F FF B6
              16 08 1E 87 03 1B FD 96 A5 2B 01 9E 5B 0B 00 00 95 01 6F 07 9D 59
              1C 5A 16 07 1E 86 EB 1B FD 7E 94 00 95 01 6F 07 AC 8E 16 5E 16 05
              1E 86 D9 1B FD 6C 95 01 6F 07 AC 8E 16 66 16 03 1E 86 C9 1B FD 5C
              94 00 6F 07 AC D9 5A 1C 67 16 02 1E 86 B8 1B FD 4B B6 B2 68 13 02
              B0 6D 1A 01 28 FC 7D 16 0E 1E 86 A4 1B FD 4C A3 2B 01 9E 5B 0B 00
              00 95 01 6F 07 9D 59 1C 5C 16 0E 1E 86 8C 1B FD 34 95 01 6F 07 AC
              8E 16 60 16 0C 1E 86 7C 1B FD 24 94 00 6F 07 AC 03 19 5A 1C 66 16
              0B 1E 86 6A 1B FD 12 94 00 95 01 6F 07 AC 8E 16 64 16 0A 1E 86 58
              1B FD 00 9F 2B 01 F5 72 AA F6 32 AA 0B 01 00 AE 7B 01 AD F3 68 04
              00 00 5D 5D 7A 61 01 13 67 00 00 06 67 00 00 00 08 00 00 0D 02 14
              67 00 00 01 6D 1D 01 28 FB F6 11 18 01 00 16 0A 1E 86 19 1B FC C1
              68 0A 01 6F 07 9D 21 FF A6 AC 88 0F FF B3 16 08 1E 86 03 1B FC AB
              A5 2B 01 9E 5B 0B 00 00 95 01 6F 07 9D 59 1C 5A 16 07 1E 85 EB 1B
              FC 93 94 00 95 01 6F 07 AC 8E 16 5E 16 05 1E 85 D9 1B FC 81 95 01
              6F 07 AC 8E 16 66 16 03 1E 85 C9 1B FC 71 94 00 6F 07 AC 03 18 5A
              1C 66 16 02 1E 85 B7 1B FC 5F 9F 2B 01 65 20 32 AA 0B 00 00 B1 68
              01 00 68 0E 02 AF 6D 21 01 28 FB 70 1D 80 FF 16 09 1E 85 94 1B FC
              51 00 16 01 11 16 08 18 01 00 1B 85 85 AC 7B 01 65 1F 61 01 13 05
              00 00 02 2B 01 65 22 32 AA 0B 00 00 67 00 00 04 68 01 00 08 00 00
              0B 02 14 AF 6D 23 01 28 FB 30 1D 49 16 01 11 18 01 00 16 08 1E 85
              4F 1B FC 0C 68 0A 01 6F 07 AC 24 1F FF 8E AC 88 0F FF B8 16 08 1E
              85 38 1B FB F5 A5 2B 01 9E 5B 0B 00 00 95 01 6F 07 9D 59 1C 59 16
              07 1E 85 20 1B FB DD 94 00 95 01 6F 07 AC 8E 16 5E 16 05 1E 85 0E
              1B FB CB 95 01 6F 07 AC 8E 16 66 16 03 1E 84 FE 1B FB BB 94 00 6F
              07 AC 03 1E 5A 1C 66 16 02 1E 84 EC 1B FB A9 94 00 6F 07 AC 03 24
              5A 1D 80 6A 95 01 6F 07 AC 8F 16 80 59 94 00 95 01 6F 07 AC 8F 16
              80 46 A5 2B 01 9E 5B 0B 00 00 95 01 6F 07 AC 8F 16 2E 9E 2B 01 9E
              5B 0B 00 00 95 01 6F 07 9D 59 1D 16 B1 65 1F 68 0E 02 B0 BB 6D 25
              02 28 FA 70 1C 06 00 16 09 1B 84 94 16 09 1E 84 8F 1B FB 61 16 07
              1E 84 87 1B FB 59 16 05 1E 84 7F 1B FB 51 16 03 1E 84 77 1B FB 49
              16 02 1E 84 6F 1B FB 41 00 16 0A 1B 84 66 9E 2B 03 65 27 32 AA 0B
              00 00 65 28 32 AA 0B 00 01 65 29 32 AA 0B 00 02 68 06 00 6F 07 6F
              2A AD 6D 2B 01 8B 04 54 16 0A 1E 84 3B 1B FB 22 9E 2B 01 9E 5B 0B
              00 00 95 01 6F 07 9D 59 1C 42 16 09 1E 84 23 1B FB 0A 9E 2B 01 9E
              5B 0B 00 00 95 01 6F 07 AC 8E 16 58 16 07 1E 84 0B 1B FA F2 A3 2B
              01 9E 5B 0B 00 00 95 01 6F 07 AC 8E 16 58 16 05 1E 83 F3 1B FA DA
              95 01 6F 07 AC 8E 16 60 16 03 1E 83 E3 1B FA CA 94 00 6F 07 AC 03
              26 5A 1C 66 16 02 1E 83 D1 1B FA B8 9E 2B 01 9E 5B 0B 00 00 95 01
              6F 07 9D 59 1D 0F 68 03 00 6F 07 6F 08 AE 6D 2D 01 8B 04 82 8A 16
              07 1E 83 AA 1B FA A6 A3 2B 01 9E 5B 0B 00 00 95 01 6F 07 AC 8E 16
              49 16 05 1E 83 92 1B FA 8E 95 01 6F 07 AC 8E 16 60 16 03 1E 83 82
              1B FA 7E 94 00 6F 07 AC 03 2C 5A 1C 66 16 02 1E 83 70 1B FA 6C 00
              16 0F 1B 83 67 9E 2B 02 65 2F 32 AA 0B 00 00 65 30 32 AA 0B 00 01
              68 0B 00 6F 07 6F 2A AD 6D 31 01 8B 04 5B 16 0F 1E 83 43 1B FA 54
              A0 2B 01 9E 5B 0B 00 00 95 01 6F 07 9D 59 1C 49 16 0E 1E 83 2B 1B
              FA 3C 95 01 6F 07 AC 8E 16 60 16 0C 1E 83 1B 1B FA 2C 94 00 6F 07
              AC D7 5A 1C 67 16 0B 1E 83 0A 1B FA 1B 9F 2B 01 9E 5B 0B 00 00 95
              01 6F 07 AC 8E 16 5F 16 0A 1E 82 F2 1B FA 03 00 16 01 11 16 09 18
              01 00 1B 82 E3 9F 2B 02 65 32 32 AA 0B 00 00 65 33 32 AA 0B 00 01
              AD 7B 01 68 01 00 EC 68 03 01 00 5D 5D 7A 61 01 13 05 00 00 00 2B
              02 65 34 32 AA 0B 00 00 65 35 32 AA 0B 00 01 08 00 00 05 00 14 6F
              07 6F 2A AD 6D 36 01 8B 04 FF AC 16 01 11 18 01 00 16 09 1E 82 90
              1B F9 A1 68 0A 01 6F 07 9D 21 FF 7D AC 88 0F FF 9C 16 08 1E 82 7A
              1B F9 8B 9E 2B 01 9E 5B 0B 00 00 95 01 6F 07 9D 59 1C 5A 16 07 1E
              82 62 1B F9 73 A3 2B 01 9E 5B 0B 00 00 95 01 6F 07 AC 8E 16 58 16
              05 1E 82 4A 1B F9 5B 95 01 6F 07 AC 8E 16 60 16 03 1E 82 3A 1B F9
              4B 94 00 6F 07 AC 03 2E 5A 1C 66 16 02 1E 82 28 1B F9 39 B0 65 38
              65 39 00 5D 7A AF B7 6D 3A 02 2D 03 3B 16 06 1E 82 10 1B F9 36 AC
              7B 01 65 37 61 01 13 67 00 00 04 65 38 65 39 00 5D 7A 67 00 00 01
              67 00 00 08 6D 3C 02 2D 03 3B 11 18 01 00 16 06 1E 81 E3 1B F9 09
              A3 2B 01 9E 5B 0B 00 00 9D 2B 01 9F 5C 0B 00 00 68 08 01 6F 07 AC
              24 37 FF A1 AC 88 0F FF B4 16 06 1E 81 BC 1B F8 E2 94 00 95 01 6F
              07 AC 8E 16 4F 16 03 1E 81 AA 1B F8 D0 94 00 A4 2B 01 9F 5C 0B 00
              00 AD 65 37 68 0A 02 AF B7 6D 3E 02 28 F7 63 16 05 1E 81 8A 1B F8
              C5 95 01 6F 07 AC 8E 16 58 16 03 1E 81 7A 1B F8 B5 94 00 6F 07 AC
              03 3D 5A 1C 66 16 02 1E 81 68 1B F8 A3 94 00 6F 07 AC 03 3F 5A 1D
              80 5B 95 01 6F 07 AC 8F 16 80 4A 94 00 6F 07 AC 03 40 5A 1D 38 95
              01 6F 07 AC 8F 16 28 A5 2B 01 9E 5B 0B 00 00 95 01 6F 07 9D 59 1D
              10 68 01 00 AE 6D 41 01 8A 42 06 00 16 07 1B 81 1F 16 07 1E 81 1A
              1B F8 6A 16 05 1E 81 12 1B F8 62 16 04 1E 81 0A 1B F8 5A 16 03 1E
              81 02 1B F8 52 16 02 1E 80 FA 1B F8 4A 16 05 1E 80 F2 1B 80 76 16
              03 1E 80 EA 1B 80 6E 16 02 1E 80 E2 1B 80 66 00 16 08 1B 80 D9 A5
              2B 01 9E 5B 0B 00 00 9D 2B 01 9F 5C 0B 00 00 65 44 72 AA B0 AD 68
              0D 02 B0 6D 45 01 28 F6 8D 1D 58 16 08 1E 80 B2 1B 80 4A 94 00 95
              01 6F 07 AC 8E 16 4C 16 05 1E 80 A0 1B 39 95 01 6F 07 AC 8E 16 67
              16 03 1E 80 91 1B 2A 94 00 6F 07 AC 03 43 5A 1C 67 16 02 1E 80 80
              1B 19 16 01 1E 80 79 6B 01 32 B1 0F 01 68 03 00 6F 07 AC 8E 16 5B
              16 01 1E 80 65 6B 01 32 B1 0F 01 A0 2B 01 65 46 32 AA 0B 00 00 68
              04 02 68 01 00 AE B2 6D 47 02 2D 03 48 16 01 1E 80 42 6B 01 32 B1
              0F 01 A0 2B 01 65 49 32 AA 0B 00 00 68 04 02 68 01 00 AE B2 6D 4A
              02 2D 03 4B 16 01 1E 20 6B 01 32 B1 0F 01 A0 2B 01 65 4C 32 AA 0B
              00 00 14 6F 07 2E 4D 14 AE 6D 4E 01 2D 03 4F 16 01 3F 48 19 06 19
              06)
       (|COMMON-LISP|::|NIL| |qi|::|*logical-inferences*| |qi|::|spy?|
        #Y(|qi|::|tt*-1|
           #32Y(00 00 00 00 00 00 00 00 26 01 69 00 01 DB 69 00 02 7B 03 69 00
                03 2A 14 6D 02 01 2D 03 03 19 01)
           (|COMMON-LISP|::|NIL| |qi|::|$$|
            #Y(|qi|::|tt*-1-1|
               #17Y(00 00 00 00 00 00 00 00 26 01 69 00 04 2F 01 19 01)
               (|COMMON-LISP|::|NIL| |qi|::|fail*|)
               (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
               |COMMON-LISP|::|NIL| 1)
            |qi|::|show_checking*|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
           |COMMON-LISP|::|NIL| 1)
        |qi|::|when*| |qi|::|by_hypothesis*| "V" |qi|::|lazyderef|
        |qi|::|symbol?|
        #Y(|qi|::|tt*-2|
           #32Y(00 00 00 00 00 00 00 00 26 01 69 00 01 6F 01 69 01 01 6F 01 6F
                02 2A 14 6D 03 01 2D 03 04 19 01)
           (|COMMON-LISP|::|NIL| |qi|::|lazyderef| |qi|::|get_type_of_func|
            #Y(|qi|::|tt*-2-1|
               #26Y(00 00 00 00 00 00 00 00 26 01 69 00 01 6F 01 6F 02 2A 14 6D
                    03 01 30 04 19 01)
               (|COMMON-LISP|::|NIL| |qi|::|lazyderef| |qi|::|cons?|
                #Y(|qi|::|tt*-2-1-1|
                   #24Y(00 00 00 00 00 00 00 00 26 01 69 01 02 69 00 01 69 01
                        04 2D 03 01 19 01)
                   (|COMMON-LISP|::|NIL| |qi|::|=!*|)
                   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
                   () |COMMON-LISP|::|NIL| 1)
                |qi|::|when*|)
               (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
               |COMMON-LISP|::|NIL| 1)
            |qi|::|is*|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
           |COMMON-LISP|::|NIL| 1)
        "V" |qi|::|atom?|
        #Y(|qi|::|tt*-3|
           #32Y(00 00 00 00 00 00 00 00 26 01 69 00 01 6F 01 69 01 01 6F 01 6F
                02 2A 14 6D 03 01 2D 03 04 19 01)
           (|COMMON-LISP|::|NIL| |qi|::|lazyderef| |qi|::|map_base_type|
            #Y(|qi|::|tt*-3-1|
               #24Y(00 00 00 00 00 00 00 00 26 01 69 01 02 69 00 01 69 01 04 2D
                    03 01 19 01)
               (|COMMON-LISP|::|NIL| |qi|::|=*|)
               (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
               |COMMON-LISP|::|NIL| 1)
            |qi|::|is*|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
           |COMMON-LISP|::|NIL| 1)
        |qi|::|list| |qi|::|popstack| |qi|::|var?| "V" "V" |qi|::|-->|
        #Y(|qi|::|tt*-4|
           #27Y(00 00 00 00 00 00 00 00 26 01 69 01 01 69 00 01 69 02 03 69 02
                04 2D 04 01 19 01)
           (|COMMON-LISP|::|NIL| |qi|::|tt*|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
           |COMMON-LISP|::|NIL| 1)
        |qi|::|@c|
        #Y(|qi|::|tt*-5|
           #30Y(00 00 00 00 00 00 00 00 26 01 69 01 01 DB 69 00 01 7B 02 69 02
                03 69 02 04 2D 04 02 19 01)
           (|COMMON-LISP|::|NIL| |qi|::|list| |qi|::|tt*|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
           |COMMON-LISP|::|NIL| 1)
        "V"
        #Y(|qi|::|tt*-6|
           #30Y(00 00 00 00 00 00 00 00 26 01 69 01 01 DB 69 00 01 7B 02 69 02
                03 69 02 04 2D 04 02 19 01)
           (|COMMON-LISP|::|NIL| |qi|::|list| |qi|::|tt*|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
           |COMMON-LISP|::|NIL| 1)
        |qi|::|@p| |COMMON-LISP|::|*|
        #Y(|qi|::|tt*-7|
           #27Y(00 00 00 00 00 00 00 00 26 01 69 01 01 69 00 01 69 02 03 69 02
                04 2D 04 01 19 01)
           (|COMMON-LISP|::|NIL| |qi|::|tt*|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
           |COMMON-LISP|::|NIL| 1)
        "V" "V"
        #Y(|qi|::|tt*-8|
           #27Y(00 00 00 00 00 00 00 00 26 01 69 01 01 69 00 01 69 02 03 69 02
                04 2D 04 01 19 01)
           (|COMMON-LISP|::|NIL| |qi|::|tt*|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
           |COMMON-LISP|::|NIL| 1)
        |qi|::|qi_=| |qi|::|boolean| "V"
        #Y(|qi|::|tt*-9|
           #27Y(00 00 00 00 00 00 00 00 26 01 69 01 01 69 00 01 69 02 03 69 02
                04 2D 04 01 19 01)
           (|COMMON-LISP|::|NIL| |qi|::|tt*|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
           |COMMON-LISP|::|NIL| 1)
        "V"
        #Y(|qi|::|tt*-10|
           #27Y(00 00 00 00 00 00 00 00 26 01 69 01 01 69 00 01 69 02 03 69 02
                04 2D 04 01 19 01)
           (|COMMON-LISP|::|NIL| |qi|::|tt*|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
           |COMMON-LISP|::|NIL| 1)
        |qi|::|if|
        #Y(|qi|::|tt*-11|
           #24Y(00 00 00 00 00 00 00 00 26 01 2A 14 6D 02 01 2F 03 1E 03 00 49
                01 19 01)
           (|COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|
            #Y(|qi|::|tt*-11-1|
               #29Y(00 00 00 00 00 00 00 00 26 01 69 01 01 69 02 02 69 02 03 2A
                    14 6D 01 01 2D 04 02 19 01)
               (|COMMON-LISP|::|NIL|
                #Y(|qi|::|tt*-11-1-1|
                   #27Y(00 00 00 00 00 00 00 00 26 01 69 00 01 69 02 02 69 02
                        03 69 02 04 2D 04 01 19 01)
                   (|COMMON-LISP|::|NIL| |qi|::|tt*|)
                   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
                   () |COMMON-LISP|::|NIL| 1)
                |qi|::|tt*|)
               (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
               |COMMON-LISP|::|NIL| 1)
            |qi|::|popstack|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
           |COMMON-LISP|::|NIL| 1)
        |qi|::|let| "V" "V" "V" |qi|::|variable?|
        #Y(|qi|::|tt*-12|
           #29Y(00 00 00 00 00 00 00 00 26 01 69 02 01 69 00 01 69 04 03 2A 14
                6D 01 01 2D 04 02 19 01)
           (|COMMON-LISP|::|NIL|
            #Y(|qi|::|tt*-12-1|
               #28Y(00 00 00 00 00 00 00 00 26 01 69 00 02 6F 01 2E 02 14 2A 14
                    6D 03 01 2D 03 04 19 01)
               (|COMMON-LISP|::|NIL| |qi|::|lazyderef| |qi|::|arbterm|
                #Y(|qi|::|tt*-12-1-1|
                   #43Y(00 00 00 00 00 00 00 00 26 01 69 00 03 6F 01 69 00 02
                        6F 01 69 03 01 6F 01 69 01 01 6F 01 6E 03 02 2A 14 6D
                        03 01 2D 03 04 19 01)
                   (|COMMON-LISP|::|NIL| |qi|::|lazyderef| |qi|::|substfree|
                    #Y(|qi|::|tt*-12-1-1-1|
                       #37Y(00 00 00 00 00 00 00 00 26 01 69 00 03 69 04 02 69
                            00 02 DB 69 00 01 7B 03 07 04 03 7A 69 04 04 2D 04
                            02 19 01)
                       (|COMMON-LISP|::|NIL| |qi|::|$$| |qi|::|tt*|)
                       (|COMMON-LISP|::|T| |COMMON-LISP|::|T|
                        |COMMON-LISP|::|T|)
                       () |COMMON-LISP|::|NIL| 1)
                    |qi|::|is*|)
                   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
                   () |COMMON-LISP|::|NIL| 1)
                |qi|::|is*|)
               (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
               |COMMON-LISP|::|NIL| 1)
            |qi|::|tt*|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
           |COMMON-LISP|::|NIL| 1)
        |qi|::|set|
        #Y(|qi|::|tt*-13|
           #32Y(00 00 00 00 00 00 00 00 26 01 DB 69 01 01 7B 02 69 02 02 69 02
                03 2A 14 6D 02 01 2D 04 03 19 01)
           (|COMMON-LISP|::|NIL| |qi|::|value|
            #Y(|qi|::|tt*-13-1|
               #27Y(00 00 00 00 00 00 00 00 26 01 69 00 01 69 02 02 69 02 03 69
                    02 04 2D 04 01 19 01)
               (|COMMON-LISP|::|NIL| |qi|::|tt*|)
               (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
               |COMMON-LISP|::|NIL| 1)
            |qi|::|tt*|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
           |COMMON-LISP|::|NIL| 1)
        |qi|::|/.| "V" "V"
        #Y(|qi|::|tt*-14|
           #28Y(00 00 00 00 00 00 00 00 26 01 69 00 01 6F 01 2E 02 14 2A 14 6D
                03 01 2D 03 04 19 01)
           (|COMMON-LISP|::|NIL| |qi|::|lazyderef| |qi|::|arbterm|
            #Y(|qi|::|tt*-14-1|
               #43Y(00 00 00 00 00 00 00 00 26 01 69 00 02 6F 01 69 00 01 6F 01
                    69 04 01 6F 01 69 03 01 6F 01 6E 03 02 2A 14 6D 03 01 2D 03
                    04 19 01)
               (|COMMON-LISP|::|NIL| |qi|::|lazyderef| |qi|::|substfree|
                #Y(|qi|::|tt*-14-1-1|
                   #37Y(00 00 00 00 00 00 00 00 26 01 69 00 02 69 01 01 69 00
                        01 DB 69 02 01 7B 03 07 05 03 7A 69 05 04 2D 04 02 19
                        01)
                   (|COMMON-LISP|::|NIL| |qi|::|$$| |qi|::|tt*|)
                   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
                   () |COMMON-LISP|::|NIL| 1)
                |qi|::|is*|)
               (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
               |COMMON-LISP|::|NIL| 1)
            |qi|::|is*|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
           |COMMON-LISP|::|NIL| 1)
        "V" "V" "V" "V"
        #Y(|qi|::|tt*-15|
           #28Y(00 00 00 00 00 00 00 00 26 01 69 00 01 6F 01 2E 02 14 2A 14 6D
                03 01 2D 03 04 19 01)
           (|COMMON-LISP|::|NIL| |qi|::|lazyderef| |qi|::|arbterm|
            #Y(|qi|::|tt*-15-1|
               #43Y(00 00 00 00 00 00 00 00 26 01 69 00 02 6F 01 69 00 01 6F 01
                    69 03 01 6F 01 69 02 01 6F 01 6E 03 02 2A 14 6D 03 01 2D 03
                    04 19 01)
               (|COMMON-LISP|::|NIL| |qi|::|lazyderef| |qi|::|substfree|
                #Y(|qi|::|tt*-15-1-1|
                   #37Y(00 00 00 00 00 00 00 00 26 01 69 00 02 69 01 02 69 00
                        01 DB 69 01 01 7B 03 07 04 03 7A 69 04 04 2D 04 02 19
                        01)
                   (|COMMON-LISP|::|NIL| |qi|::|$$| |qi|::|tt*|)
                   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
                   () |COMMON-LISP|::|NIL| 1)
                |qi|::|is*|)
               (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
               |COMMON-LISP|::|NIL| 1)
            |qi|::|is*|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
           |COMMON-LISP|::|NIL| 1)
        |qi|::|string| |qi|::|output| |qi|::|make-string|
        #Y(|qi|::|tt*-16|
           #24Y(00 00 00 00 00 00 00 00 26 01 2A 14 6D 02 01 2F 03 1E 03 00 49
                01 19 01)
           (|COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|
            #Y(|qi|::|tt*-16-1|
               #27Y(00 00 00 00 00 00 00 00 26 01 69 01 01 DB 69 02 03 2A 14 6D
                    02 01 2D 04 03 19 01)
               (|COMMON-LISP|::|NIL| |qi|::|string|
                #Y(|qi|::|tt*-16-1-1|
                   #24Y(00 00 00 00 00 00 00 00 26 01 69 00 01 69 02 03 69 02
                        04 2D 03 01 19 01)
                   (|COMMON-LISP|::|NIL| |qi|::|all_typed?*|)
                   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
                   () |COMMON-LISP|::|NIL| 1)
                |qi|::|tt*|)
               (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
               |COMMON-LISP|::|NIL| 1)
            |qi|::|popstack|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
           |COMMON-LISP|::|NIL| 1)
        |qi|::|member*|
        #Y(|qi|::|tt*-17|
           #24Y(00 00 00 00 00 00 00 00 26 01 2A 14 6D 02 01 2F 03 1E 03 00 49
                01 19 01)
           (|COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|
            #Y(|qi|::|tt*-17-1|
               #27Y(00 00 00 00 00 00 00 00 26 01 69 01 01 DB 69 02 03 2A 14 6D
                    02 01 2D 04 03 19 01)
               (|COMMON-LISP|::|NIL| |qi|::|string|
                #Y(|qi|::|tt*-17-1-1|
                   #24Y(00 00 00 00 00 00 00 00 26 01 69 00 01 69 02 03 69 02
                        04 2D 03 01 19 01)
                   (|COMMON-LISP|::|NIL| |qi|::|all_typed?*|)
                   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
                   () |COMMON-LISP|::|NIL| 1)
                |qi|::|tt*|)
               (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
               |COMMON-LISP|::|NIL| 1)
            |qi|::|popstack|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
           |COMMON-LISP|::|NIL| 1)
        |qi|::|error|
        #Y(|qi|::|tt*-18|
           #24Y(00 00 00 00 00 00 00 00 26 01 2A 14 6D 02 01 2F 03 1E 03 00 49
                01 19 01)
           (|COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|
            #Y(|qi|::|tt*-18-1|
               #24Y(00 00 00 00 00 00 00 00 26 01 69 00 01 69 01 03 69 01 04 2D
                    03 01 19 01)
               (|COMMON-LISP|::|NIL| |qi|::|all_typed?*|)
               (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
               |COMMON-LISP|::|NIL| 1)
            |qi|::|popstack|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
           |COMMON-LISP|::|NIL| 1)
        |qi|::|input+| |qi|::|$$|
        #Y(|qi|::|tt*-19|
           #24Y(00 00 00 00 00 00 00 00 26 01 69 00 01 69 01 02 69 01 04 2D 03
                01 19 01)
           (|COMMON-LISP|::|NIL| |qi|::|=*|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
           |COMMON-LISP|::|NIL| 1)
        |qi|::|monomorphic?*| |qi|::|do| "V"
        #Y(|qi|::|tt*-20|
           #33Y(00 00 00 00 00 00 00 00 26 01 DB 69 01 01 07 00 01 5D 7A 69 02
                02 69 02 03 69 02 04 2D 04 02 19 01)
           (|COMMON-LISP|::|NIL| |qi|::|do| |qi|::|tt*|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
           |COMMON-LISP|::|NIL| 1)
        "V"
        #Y(|qi|::|tt*-21|
           #24Y(00 00 00 00 00 00 00 00 26 01 2A 14 6D 02 01 2F 03 1E 03 00 49
                01 19 01)
           (|COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|
            #Y(|qi|::|tt*-21-1|
               #27Y(00 00 00 00 00 00 00 00 26 01 69 01 01 69 01 02 69 00 01 69
                    01 04 2D 04 01 19 01)
               (|COMMON-LISP|::|NIL| |qi|::|tt*|)
               (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
               |COMMON-LISP|::|NIL| 1)
            |qi|::|popstack|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
           |COMMON-LISP|::|NIL| 1)
        |qi|::|split_cons*| "V"
        #Y(|qi|::|tt*-22|
           #24Y(00 00 00 00 00 00 00 00 26 01 2A 14 6D 02 01 2F 03 1E 03 00 49
                01 19 01)
           (|COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|
            #Y(|qi|::|tt*-22-1|
               #27Y(00 00 00 00 00 00 00 00 26 01 69 01 01 69 01 02 69 00 01 69
                    01 04 2D 04 01 19 01)
               (|COMMON-LISP|::|NIL| |qi|::|tt*|)
               (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
               |COMMON-LISP|::|NIL| 1)
            |qi|::|popstack|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
           |COMMON-LISP|::|NIL| 1)
        |qi|::|split_pair*| "V" |qi|::|usertypes|
        #Y(|qi|::|tt*-23|
           #35Y(00 00 00 00 00 00 00 00 26 01 69 00 01 69 01 01 DB 69 01 02 00
                5D 5D 7A 69 01 03 69 01 04 2D 04 02 19 01)
           (|COMMON-LISP|::|NIL| |qi|::|$$| |qi|::|try_usetypes*|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
           |COMMON-LISP|::|NIL| 1)
        |qi|::|is*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|FP1| |qi|::|FP2| |qi|::|FP3| |qi|::|Continuation|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5296 5307 (DEFUN all_typed?* (FP1 FP2 Continuation) ...)-529|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|all_typed?*| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|all_typed?*|
       #101Y(00 00 00 00 03 00 00 00 26 04 00 2B 02 7F 03 00 00 7F 02 00 01 6B
             00 32 B1 0F 00 B0 6F 01 9D 59 1C 36 16 01 1E 3D 6B 00 32 B1 0F 00
             B0 6F 01 AC 8F 16 20 9E 2B 01 9E 5B 0B 00 00 95 01 9E 2B 01 DD 32
             AA 0B 00 00 AD 68 05 00 AE 6D 04 01 28 FF B9 16 03 16 01 3F 19 05
             68 01 01 2F 02 16 01 1E 02 1B 43 19 05)
       (|qi|::|*logical-inferences*| |qi|::|lazyderef| |qi|::|popstack| "V"
        #Y(|qi|::|all_typed?*-1|
           #27Y(00 00 00 00 00 00 00 00 26 01 69 01 01 69 00 01 69 02 01 69 02
                02 2D 04 01 19 01)
           (|COMMON-LISP|::|NIL| |qi|::|tt*|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
           |COMMON-LISP|::|NIL| 1))
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|FP1| |qi|::|FP2| |qi|::|Continuation|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5309 5367 (DEFUN split_cons* (FP1 FP2 Continuation) ...)-530|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|split_cons*| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|split_cons*|
       #420Y(01 00 00 00 03 00 00 00 26 04 00 2B 01 7F 02 00 00 6B 00 32 B1 0F
             00 B0 6F 01 AC 8E 16 81 29 16 01 1E 81 7E 6B 00 32 B1 0F 00 B0 6F
             01 AC 8F 16 18 94 00 9F 2B 01 9F 5C 0B 00 00 B2 6F 01 9D 21 81 16
             AC 88 08 81 29 16 03 16 01 3F 19 05 95 11 C2 BA DD B2 7B 03 B9 DD
             DE B4 7B 02 7B 03 A0 5D 7A 68 15 00 2D 03 05 16 13 1E 81 36 1B FF
             B5 95 05 6F 01 9D 59 1C 57 16 12 1E 81 26 1B FF A5 94 00 95 01 6F
             01 9D 59 1C 66 16 11 1E 81 14 1B FF 93 95 01 6F 01 AC 8E 16 66 16
             0F 1E 81 04 1B FF 83 94 00 6F 01 AC C9 5A 1C 67 16 0E 1E 80 F3 1B
             FF 72 94 00 6F 01 AC 8E 16 67 16 0D 1E 80 E3 1B FF 62 95 01 6F 01
             AC 8E 16 68 16 0C 1E 80 D3 1B FF 52 94 00 6F 01 AC C8 5A 1C 67 16
             0B 1E 80 C2 1B FF 41 95 07 6F 01 AC 8E 16 67 16 0A 1E 80 B2 1B FF
             31 94 00 95 01 6F 01 9D 59 1C 66 16 09 1E 80 A0 1B FF 1F 94 00 95
             01 6F 01 AC 8E 16 64 16 07 1E 80 8E 1B FF 0D 95 01 6F 01 AC 8E 16
             66 16 05 1E 80 7E 1B FE FD 94 00 6F 01 AC C7 5A 1C 67 16 04 1E 80
             6D 1B FE EC 94 00 6F 01 AC 8E 16 67 16 03 1E 80 5D 1B FE DC 94 00
             6F 01 AC 8E 16 68 16 02 1E 80 4D 1B FE CC 94 00 9F 2B 01 9F 5C 0B
             00 00 AD B1 AE 6D 06 01 2D 03 07 16 05 1B FE D9 9E 2B 01 E3 72 AA
             E4 32 AA 0B 01 00 AE 7B 01 AD 06 03 00 7A 61 01 13 67 00 00 00 67
             00 00 04 67 00 00 01 6D 0B 01 2D 03 07 11 18 01 00 16 05 1B FE A7
             19 05)
       (|qi|::|*logical-inferences*| |qi|::|lazyderef| |qi|::|@c| |qi|::|$$|
        |qi|::|list| |qi|::|bind*|
        #Y(|qi|::|split_cons*-1|
           #24Y(00 00 00 00 00 00 00 00 26 01 69 01 01 69 00 01 69 02 01 2D 03
                01 19 01)
           (|COMMON-LISP|::|NIL| |qi|::|split_cons*|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
           |COMMON-LISP|::|NIL| 1)
        |qi|::|=*| |qi|::|var?| "V" "V"
        #Y(|qi|::|split_cons*-2|
           #24Y(00 00 00 00 00 00 00 00 26 01 69 01 01 69 00 01 69 02 01 2D 03
                01 19 01)
           (|COMMON-LISP|::|NIL| |qi|::|split_cons*|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
           |COMMON-LISP|::|NIL| 1))
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|FP1| |qi|::|FP2| |qi|::|Continuation|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5369 5429 (DEFUN split_pair* (FP1 FP2 Continuation) ...)-531|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|split_pair*| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|split_pair*|
       #435Y(01 00 00 00 03 00 00 00 26 04 00 2B 01 7F 02 00 00 6B 00 32 B1 0F
             00 B0 6F 01 AC 8E 16 81 38 16 01 1E 81 8D 6B 00 32 B1 0F 00 B0 6F
             01 AC 8F 16 18 94 00 9F 2B 01 9F 5C 0B 00 00 B2 6F 01 9D 21 81 25
             AC 88 08 81 38 16 03 16 01 3F 19 05 95 13 C4 BC DD B6 7B 03 BB DD
             B3 7B 03 A0 5D 7A 68 17 00 2D 03 05 16 15 1E 81 48 1B FF B8 95 07
             6F 01 9D 59 1C 5A 16 14 1E 81 38 1B FF A8 94 00 95 01 6F 01 9D 59
             1C 66 16 13 1E 81 26 1B FF 96 95 01 6F 01 AC 8E 16 66 16 11 1E 81
             16 1B FF 86 94 00 6F 01 AC C9 5A 1C 67 16 10 1E 81 05 1B FF 75 94
             00 95 01 6F 01 AC 8E 16 65 16 0F 1E 80 F3 1B FF 63 94 00 6F 01 AC
             8E 16 66 16 0D 1E 80 E3 1B FF 53 95 01 6F 01 AC 8E 16 68 16 0C 1E
             80 D3 1B FF 43 94 00 6F 01 AC C8 5A 1C 67 16 0B 1E 80 C2 1B FF 32
             95 07 6F 01 AC 8E 16 67 16 0A 1E 80 B2 1B FF 22 94 00 95 01 6F 01
             9D 59 1C 66 16 09 1E 80 A0 1B FF 10 94 00 95 01 6F 01 AC 8E 16 64
             16 07 1E 80 8E 1B FE FE 95 01 6F 01 AC 8E 16 66 16 05 1E 80 7E 1B
             FE EE 94 00 6F 01 AC C7 5A 1C 67 16 04 1E 80 6D 1B FE DD 94 00 6F
             01 AC 8E 16 67 16 03 1E 80 5D 1B FE CD 94 00 6F 01 AC 8E 16 68 16
             02 1E 80 4D 1B FE BD 94 00 9F 2B 01 9F 5C 0B 00 00 AD B1 AE 6D 06
             01 2D 03 07 16 05 1B FE CA 9E 2B 01 E3 72 AA E4 32 AA 0B 01 00 AE
             7B 01 AD 06 03 00 7A 61 01 13 67 00 00 00 67 00 00 04 67 00 00 01
             6D 0B 01 2D 03 07 11 18 01 00 16 05 1B FE 98 19 05)
       (|qi|::|*logical-inferences*| |qi|::|lazyderef| |qi|::|@p| |qi|::|$$|
        |COMMON-LISP|::|*| |qi|::|bind*|
        #Y(|qi|::|split_pair*-1|
           #24Y(00 00 00 00 00 00 00 00 26 01 69 01 01 69 00 01 69 02 01 2D 03
                01 19 01)
           (|COMMON-LISP|::|NIL| |qi|::|split_pair*|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
           |COMMON-LISP|::|NIL| 1)
        |qi|::|=*| |qi|::|var?| "V" "V"
        #Y(|qi|::|split_pair*-2|
           #24Y(00 00 00 00 00 00 00 00 26 01 69 01 01 69 00 01 69 02 01 2D 03
                01 19 01)
           (|COMMON-LISP|::|NIL| |qi|::|split_pair*|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
           |COMMON-LISP|::|NIL| 1))
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|FP1| |qi|::|FP2| |qi|::|Continuation|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5431 5454 (DEFUN by_hypothesis* (FP1 FP2 FP3 ...) ...)-532|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|by_hypothesis*| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|by_hypothesis*|
       #177Y(00 00 00 00 04 00 00 00 26 05 00 2B 02 7F 04 00 00 7F 02 00 01 6B
             00 32 B1 0F 00 AF 6F 01 AC 8E 16 80 7D 16 01 1E 80 87 6B 00 32 B1
             0F 00 AF 6F 01 AC 8F 16 0E 95 00 B3 68 03 00 AE 68 05 01 28 49 16
             01 16 01 3F 19 06 B9 B2 AF 6D 03 01 2D 03 04 16 08 1E 80 59 1B 50
             A3 2B 01 9E 5B 0B 00 00 95 01 6F 01 9D 59 1C 60 16 08 1E 80 42 1B
             FF B8 95 01 6F 01 AC 8E 16 60 16 06 1E 33 1B FF A9 94 00 6F 01 AC
             C7 5A 1C 68 16 05 1E 23 1B FF 99 94 00 95 01 6F 01 AC 8E 16 66 16
             04 1E 12 1B FF 88 94 00 6F 01 AC 8E 16 67 16 02 1E 03 1B FF 79 19
             06)
       (|qi|::|*logical-inferences*| |qi|::|lazyderef| |qi|::|$$|
        #Y(|qi|::|by_hypothesis*-1|
           #24Y(00 00 00 00 00 00 00 00 26 01 69 01 01 69 00 01 69 01 02 2D 03
                01 19 01)
           (|COMMON-LISP|::|NIL| |qi|::|=!*|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
           |COMMON-LISP|::|NIL| 1)
        |qi|::|==*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|FP1| |qi|::|FP2| |qi|::|FP3| |qi|::|Continuation|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5456 5464 (DEFUN member* (FP1 FP2 Continuation) ...)-533|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|member*| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|member*|
       #70Y(00 00 00 00 03 00 00 00 26 04 6B 00 32 B1 0F 00 AE 6F 01 AC 8E 16
            1F 16 01 1E 29 6B 00 32 B1 0F 00 AE 6F 01 AC 8F 16 09 95 00 B1 AD
            B1 28 5B 16 01 16 01 3F 19 04 94 00 AC B2 B1 2D 03 02 16 02 1E 02
            1B 57 19 04)
       (|qi|::|*logical-inferences*| |qi|::|lazyderef| |qi|::|==*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|FP1| |qi|::|FP2| |qi|::|Continuation|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5466 5485 (DEFUN monomorphic?* (FP1 Continuation) ...)-534|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|monomorphic?*| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|monomorphic?*|
       #125Y(02 00 01 00 02 00 00 00 26 03 00 2B 02 7F 03 00 00 7F 02 00 01 47
             00 80 62 6B 01 32 B1 0F 01 68 03 00 6F 02 AC 8E 16 2E 16 01 1E 27
             6B 01 32 B1 0F 01 68 03 00 6F 02 9D 59 1C 35 16 01 1E 14 6B 01 32
             B1 0F 01 68 03 00 6F 02 6F 05 B0 6D 06 01 30 07 3F 48 19 04 94 00
             A2 2B 01 9F 5C 0B 00 00 AD AD B3 6D 03 02 28 FF A1 16 03 1E 66 1B
             FF BC 68 04 01 2F 04 16 01 1E 5A 1B 44 19 04)
       (|COMMON-LISP|::|NIL| |qi|::|*logical-inferences*| |qi|::|lazyderef|
        #Y(|qi|::|monomorphic?*-1|
           #24Y(00 00 00 00 00 00 00 00 26 01 2A 14 6D 02 01 2F 03 1E 03 00 49
                01 19 01)
           (|COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|
            #Y(|qi|::|monomorphic?*-1-1|
               #20Y(00 00 00 00 00 00 00 00 26 01 69 00 01 69 01 02 30 01 19
                    01)
               (|COMMON-LISP|::|NIL| |qi|::|monomorphic?*|)
               (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
               |COMMON-LISP|::|NIL| 1)
            |qi|::|popstack|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
           |COMMON-LISP|::|NIL| 1)
        |qi|::|popstack| |qi|::|atom?|
        #Y(|qi|::|monomorphic?*-2|
           #26Y(00 00 00 00 00 00 00 00 26 01 69 00 01 6F 01 6F 02 6F 03 69 00
                02 30 04 19 01)
           (|COMMON-LISP|::|NIL| |qi|::|lazyderef| |qi|::|variable?|
            |qi|::|not| |qi|::|when*|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
           |COMMON-LISP|::|NIL| 1)
        |qi|::|when*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|FP1| |qi|::|Continuation|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5487 5498 (DEFUN try_usetypes* (FP1 FP2 FP3 ...) ...)-535|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|try_usetypes*| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|try_usetypes*|
       #74Y(00 00 00 00 04 00 00 00 26 05 6B 00 32 B1 0F 00 B0 6F 01 AC 8E 16
            20 16 01 1E 2D 6B 00 32 B1 0F 00 B0 6F 01 AC 8F 16 0A 95 00 AC B2
            B2 B2 28 5A 16 01 16 01 3F 19 05 94 00 AC B2 B2 7B 02 B1 2D 03 02
            16 02 1E 02 1B 53 19 05)
       (|qi|::|*logical-inferences*| |qi|::|lazyderef| |qi|::|call*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|FP1| |qi|::|FP2| |qi|::|FP3| |qi|::|Continuation|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5500 5510 (DEFUN show_checking* (FP1 FP2 Continuation) ...)-536|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|show_checking*| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|show_checking*|
       #43Y(00 00 00 00 03 00 00 00 26 04 00 2B 03 7F 04 00 00 7F 03 00 01 7F
            02 00 02 6B 00 32 B1 0F 00 2E 01 14 AD 6D 02 01 30 03 3F 19 05)
       (|qi|::|*logical-inferences*| |qi|::|print_line|
        #Y(|qi|::|show_checking*-1|
           #26Y(00 00 00 00 00 00 00 00 26 01 69 00 01 6F 01 6F 02 2A 14 6D 03
                01 30 04 19 01)
           (|COMMON-LISP|::|NIL| |qi|::|deref| |qi|::|display_formula|
            #Y(|qi|::|show_checking*-1-1|
               #22Y(00 00 00 00 00 00 00 00 26 01 2E 01 14 2A 14 6D 02 01 30 03
                    19 01)
               (|COMMON-LISP|::|NIL| |qi|::|carriage_return|
                #Y(|qi|::|show_checking*-1-1-1|
                   #27Y(00 00 00 00 00 00 00 00 26 01 DB 69 00 02 6F 02 70 03
                        2A 14 6D 04 01 30 05 19 01)
                   (|COMMON-LISP|::|NIL| |qi|::|display_formula| |qi|::|deref|
                    |qi|::|map|
                    #Y(|qi|::|show_checking*-1-1-1-1|
                       #20Y(00 00 00 00 00 00 00 00 26 01 2E 01 14 69 00 03 30
                            02 19 01)
                       (|COMMON-LISP|::|NIL| |qi|::|wait_for_user|
                        |qi|::|eval*|)
                       (|COMMON-LISP|::|T| |COMMON-LISP|::|T|
                        |COMMON-LISP|::|T|)
                       () |COMMON-LISP|::|NIL| 1)
                    |qi|::|eval*|)
                   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
                   () |COMMON-LISP|::|NIL| 1)
                |qi|::|eval*|)
               (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
               |COMMON-LISP|::|NIL| 1)
            |qi|::|eval*|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
           |COMMON-LISP|::|NIL| 1)
        |qi|::|eval*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|FP1| |qi|::|FP2| |qi|::|Continuation|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5512 5518 (DEFUN typing? (V477) ...)-537|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|typing?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|typing?|
       #40Y(00 00 00 00 01 00 00 00 26 02 9E 20 15 9E 5C 20 11 9E 5C 78 25 00
            0B 9E 5C 5C 20 06 9E 5C 5C 5C 1D 03 C7 19 02 C6 19 02)
       (|qi|::|$$| |qi|::|true| |qi|::|false|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|V477|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5520 5520 (DEFUN usertypes NIL ...)-538|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|usertypes| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|usertypes| #14Y(00 00 00 00 00 00 00 00 26 01 0E 00 19 01)
       (|qi|::|*usertypes*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5522 5522 (SETQ *usertypes* NIL)-539|
   #15Y(00 00 00 00 00 00 00 00 20 01 00 0F 00 19 01) (|qi|::|*usertypes*|)
   (|COMMON-LISP|::|NIL| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5523 5523 (SETQ *all-usertypes* NIL)-540|
   #15Y(00 00 00 00 00 00 00 00 20 01 00 0F 00 19 01) (|qi|::|*all-usertypes*|)
   (|COMMON-LISP|::|NIL| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5525 5539 (DEFUN substfree (V1023 V1024 V1025) ...)-541|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|substfree| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|substfree|
       #115Y(00 00 00 00 03 00 00 00 26 04 AE AE 70 00 88 01 80 4D 9E 20 1D 94
             01 25 02 18 9E 5C 20 14 9E 5C 5C 20 0F 9E 5C 5C 5C 1C 09 AE 9F 5C
             78 70 00 88 01 2A 9E 20 24 94 01 25 03 1F 9E 5C 20 1B 9E 5C 5C 20
             16 9E 5C 5C 5C 20 10 9E 5C 5C 5C 5C 1C 09 AE 9F 5C 78 70 00 88 01
             03 9E 21 06 9E 19 04 A0 19 04 AF AF 94 03 6C FF A1 B0 B0 95 04 28
             FF 9A 5D 19 04)
       (|qi|::|qi_=| |qi|::|wrapper| |qi|::|/.| |qi|::|let|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V1023| |qi|::|V1024| |qi|::|V1025|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5541 5541 (DEFUN arbterm NIL ...)-542|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|arbterm| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|arbterm| #15Y(00 00 00 00 00 00 00 00 26 01 DA 2F 01 19 01)
       ("&&x" |qi|::|gensym|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5543 5543 (DEFUN spy? NIL ...)-543|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|spy?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|spy?| #14Y(00 00 00 00 00 00 00 00 26 01 0E 00 19 01)
       (|qi|::|*spy*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5545 5553 (DEFUN display_formula (V1026) ...)-544|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|display_formula| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|display_formula|
       #61Y(00 00 00 00 01 00 00 00 26 02 9E 20 15 9E 5C 20 11 9E 5C 78 25 00
            0B 9E 5C 5C 20 06 9E 5C 5C 5C 1D 0A AD DF 30 02 38 01 31 97 19 02
            94 01 DB 30 02 DD 6B 04 A0 5C 5C 78 33 02 15 19 02)
       (|qi|::|$$| "" |qi|::|pretty|
        #Y(|qi|::|display_formula-1|
           #30Y(00 00 00 00 02 00 00 00 21 18 00 10 00 DB B3 38 02 31 95 B1 B3
                31 90 B2 31 97 A1 11 19 04)
           (|SYSTEM|::|*FORMAT-CS*| " : ")
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        |COMMON-LISP|::|*STANDARD-OUTPUT*| "")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V1026|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5555 5573 (DEFUN pretty (V889 V890) ...)-545|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|pretty| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|pretty|
       #179Y(00 00 00 00 02 00 00 00 26 03 9F 20 14 94 02 25 00 0F 9F 5C 20 0B
             9F 5C 5C 20 06 9F 5C 5C 5C 1D 2D 9F 20 15 9F 5C 20 11 9F 5C 78 25
             08 0B 9F 5C 5C 20 06 9F 5C 5C 5C 1D 2E 9F 21 80 40 AE 6F 10 88 11
             80 64 ED AE B0 6F 14 2D 03 02 19 03 95 02 DB AF 30 02 94 00 DD 28
             FF B0 DE 9E 5C 78 6F 05 30 06 E1 2F 02 19 04 94 02 AE 28 FF 9D E3
             6B 0A 33 01 15 9F 5C 5C 78 E5 29 02 05 FF 8D E6 6B 0A AF 33 02 15
             94 02 E7 28 FF 80 95 02 AC 1B 0B 94 00 AC E8 28 FF 74 16 01 83 00
             AC 8D 9F 71 16 02 E9 6B 0A 33 01 15 19 03 EC AE 30 02 AE 38 11 31
             8C 19 03)
       (|qi|::|@c| "~A[" |qi|::|output| ""
        #Y(|qi|::|pretty-1|
           #16Y(00 00 00 00 01 00 00 00 26 02 AD DA 30 01 19 02)
           (" " |qi|::|pretty|)
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
           (|qi|::|Z|) |COMMON-LISP|::|NIL| 1)
        |qi|::|elim_@c| |qi|::|mapit| "]" |qi|::|$$|
        #Y(|qi|::|pretty-2|
           #23Y(00 00 00 00 01 00 00 00 21 17 00 10 00 DB B2 38 02 31 95 A1 11
                19 03)
           (|SYSTEM|::|*FORMAT-CS*| " : ")
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        |COMMON-LISP|::|*STANDARD-OUTPUT*| ""
        #Y(|qi|::|pretty-3|
           #25Y(00 00 00 00 02 00 00 00 21 18 00 10 00 B1 B3 31 90 DB B3 31 94
                A1 11 19 04)
           (|SYSTEM|::|*FORMAT-CS*| #\()
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        "" " "
        #Y(|qi|::|pretty-4|
           #21Y(00 00 00 00 01 00 00 00 21 17 00 10 00 DB B2 31 94 A1 11 19 03)
           (|SYSTEM|::|*FORMAT-CS*| #\))
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        |qi|::|string?| |qi|::|wrapper| "~A" "~A~S" |qi|::|strip_&&|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V889| |qi|::|V890|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5575 5577 (DEFUN mapit (V1032 V1033) ...)-546|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|mapit| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|mapit|
       #31Y(00 00 00 00 02 00 00 00 26 03 9E 21 0C DB 6B 02 33 01 15 AE AE 30
            03 19 03 AE AE 30 00 19 03)
       (|qi|::|map|
        #Y(|qi|::|mapit-1|
           #23Y(00 00 00 00 01 00 00 00 21 17 00 10 00 DB B2 38 02 31 95 A1 11
                19 03)
           (|SYSTEM|::|*FORMAT-CS*| " |")
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        |COMMON-LISP|::|*STANDARD-OUTPUT*| |qi|::|apply|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V1032| |qi|::|V1033|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5579 5579 (DEFUN strip_&& (V1038) ...)-547|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|strip_&&| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|strip_&&|
       #18Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 AE 30 01 19 02)
       (|qi|::|explode| |qi|::|strip_&&_help|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V1038|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5581 5586 (DEFUN strip_&&_help (V1046 V1047) ...)-548|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|strip_&&_help| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|strip_&&_help|
       #43Y(00 00 00 00 02 00 00 00 26 03 9F 20 0F 94 02 25 00 0A 9F 5C 20 06
            9F 5C 78 24 00 03 9E 19 03 9F 5C 79 DB 72 3B 38 05 31 89 19 03)
       (#\& |COMMON-LISP|::|STRING|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V1046| |qi|::|V1047|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5588 5593 (DEFUN elim_@c (V1048) ...)-549|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|elim_@c| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|elim_@c|
       #48Y(00 00 00 00 01 00 00 00 26 02 9E 20 14 94 01 25 00 0F 9E 5C 20 0B
            9E 5C 5C 20 06 9E 5C 5C 5C 1D 03 9E 19 02 95 01 94 00 9E 5C 78 28
            5D 5D 19 03)
       (|qi|::|@c|) (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V1048|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5595 5595 (DEFUN carriage_return NIL ...)-550|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|carriage_return| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|carriage_return|
       #16Y(00 00 00 00 00 00 00 00 26 01 38 01 31 97 19 01) ()
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5597 5600 (DEFUN wait_for_user NIL ...)-551|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|wait_for_user| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|wait_for_user|
       #32Y(00 00 00 00 00 00 00 00 26 01 DA 6B 01 33 01 15 38 04 71 83 AC 24
            02 03 CA 19 02 DD 2F 04 19 02)
       (#Y(|qi|::|wait_for_user-1|
           #23Y(00 00 00 00 01 00 00 00 21 17 00 10 00 DB B2 38 02 31 95 A1 11
                19 03)
           (|SYSTEM|::|*FORMAT-CS*|
            "\n
> ")
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        |COMMON-LISP|::|*STANDARD-OUTPUT*| #\^ "aborted~%" |qi|::|error|
        |qi|::|ok|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5602 5605 (DEFUN print_line NIL ...)-552|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|print_line| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|print_line|
       #22Y(00 00 00 00 00 00 00 00 26 01 DA 6B 01 6B 02 6B 02 33 03 15 19 01)
       (#Y(|qi|::|print_line-1|
           #47Y(00 00 00 00 03 00 00 00 21 19 00 10 00 DB B4 38 02 31 95 B2 B4
                31 90 DC B4 38 02 31 95 B1 24 03 04 DE B4 31 94 DF B4 38 02 31
                95 A1 11 19 05)
           (|SYSTEM|::|*FORMAT-CS*|
            "______________________________________________ " " inference" 1.
            #\s
            "\n
?- ")
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        |COMMON-LISP|::|*STANDARD-OUTPUT*| |qi|::|*logical-inferences*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5607 5608 (DEFUN maximum_inferences_exceeded? NIL ...)-553|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|maximum_inferences_exceeded?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|maximum_inferences_exceeded?|
       #18Y(00 00 00 00 00 00 00 00 26 01 6B 00 6B 01 30 02 19 01)
       (|qi|::|*logical-inferences*| |qi|::|*maxinferences*| |qi|::|qi_>|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5610 5610 (DEFUN error_max_inferences NIL ...)-554|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|error_max_inferences| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|error_max_inferences|
       #15Y(00 00 00 00 00 00 00 00 26 01 DA 2F 01 19 01)
       ("maximum inferences exceeded~%" |qi|::|error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5612 5613 (DEFMACRO abstype (Type Rules Defs) ...)-555|
   #23Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC DD 72 4C 32 9C C5 19 01)
   (|qi|::|abstype| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|abstype|
       #58Y(00 00 00 00 02 00 00 00 26 03 AE DA DA 63 2D 04 01 1D 22 9F 5C 78
            A0 5C 5C 78 A1 5C 5C 5C 78 DD DE DF E0 E1 B3 7B 02 E1 B3 7B 02 E1
            B3 7B 02 7B 04 61 04 19 06 AE 2F 02 19 03)
       (4. |SYSTEM|::|LIST-LENGTH-IN-BOUNDS-P| |SYSTEM|::|MACRO-CALL-ERROR|
        |COMMON-LISP|::|PROGV| '(|qi|::|*tc*|) '(|qi|::|false|)
        |qi|::|abstype*| |COMMON-LISP|::|QUOTE|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|SYSTEM|::|<MACRO-FORM>| |SYSTEM|::|<ENV-ARG>|) |COMMON-LISP|::|NIL| 1)
    (|qi|::|Type| |qi|::|Rules| |qi|::|Defs|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5615 5624 (DEFUN abstype* (V941 V942 V943) ...)-556|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|abstype*| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|abstype*|
       #44Y(00 00 00 00 03 00 00 00 26 04 9F 20 0D 94 02 25 00 08 9E 20 05 94
            01 24 01 05 DE 2F 05 19 04 95 02 2F 02 DD 95 02 33 00 18 A0 19 04)
       (:|types| :|defs| |qi|::|process_type_declarations|
        |COMMON-LISP|::|EVAL| |qi|::|abstype*| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V941| |qi|::|V942| |qi|::|V943|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5626 5633 (DEFUN process_type_declarations (V5374) ...)-557|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|process_type_declarations| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|process_type_declarations|
       #57Y(00 00 00 00 01 00 00 00 26 02 92 01 16 00 19 02 95 01 95 00 94 03
            94 01 30 01 95 00 29 01 05 00 93 01 6A 9E 20 0F 9E 5C 20 0B 9E 5C
            78 25 00 05 9E 5C 5C 21 5B DC 33 00 1E)
       (|qi|::|$$| |qi|::|newfuntype*|
        "Odd number of type declarations in abstract datatype.~%")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5374|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5635 5636 (DEFUN preclude (V5377) ...)-558|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|preclude| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|preclude|
       #21Y(00 00 00 00 01 00 00 00 26 02 6B 00 AE 6F 01 30 02 0F 00 19 02)
       (|qi|::|*usertypes*| |qi|::|validate-usertypes| |qi|::|difference|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5377|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5638 5639 (DEFUN include (V5378) ...)-559|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|include| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|include|
       #21Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 6B 01 30 02 0F 01 19 02)
       (|qi|::|validate-usertypes| |qi|::|*usertypes*| |qi|::|union|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5378|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5641 5641 (DEFUN preclude-all-but (V5380) ...)-560|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|preclude-all-but| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|preclude-all-but|
       #17Y(00 00 00 00 01 00 00 00 26 02 AD 2F 00 0F 01 19 02)
       (|qi|::|validate-usertypes| |qi|::|*usertypes*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5380|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5643 5645 (DEFUN include-all-but (V5381) ...)-561|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|include-all-but| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|include-all-but|
       #21Y(00 00 00 00 01 00 00 00 26 02 6B 00 AE 6F 01 30 02 0F 03 19 02)
       (|qi|::|*all-usertypes*| |qi|::|validate-usertypes| |qi|::|difference|
        |qi|::|*usertypes*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5381|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5647 5652 (DEFUN validate-usertypes (V5387) ...)-562|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|validate-usertypes| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|validate-usertypes|
       #53Y(00 00 00 00 01 00 00 00 26 02 92 01 16 00 19 02 94 01 95 02 28 0A
            5D 19 02 DC 94 02 30 03 19 02 93 01 6A 9E 20 07 94 01 6F 00 88 01
            63 9E 21 69 DE 2F 05 19 02)
       (|qi|::|valid-usertype?| |qi|::|wrapper| "~A is not a user type~%"
        |qi|::|error| |qi|::|validate-usertypes| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5387|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5654 5654 (DEFUN valid-usertype? (V5388) ...)-563|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|valid-usertype?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|valid-usertype?|
       #17Y(00 00 00 00 01 00 00 00 26 02 AD 6B 00 30 01 19 02)
       (|qi|::|*all-usertypes*| |qi|::|element?|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5388|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5656 5656 (DEFMACRO datatype (&REST X) ...)-564|
   #23Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC DD 72 4C 32 9C C5 19 01)
   (|qi|::|datatype| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|datatype|
       #21Y(00 00 00 00 02 00 00 00 26 03 95 02 DA DB AE 7B 02 61 02 19 04)
       (|qi|::|datatype_help| |COMMON-LISP|::|QUOTE|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|SYSTEM|::|<MACRO-FORM>| |SYSTEM|::|<ENV-ARG>|) |COMMON-LISP|::|NIL| 1)
    (|COMMON-LISP|::|&REST| |qi|::|X|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5658 5664 (DEFUN datatype_help (DataType) ...)-565|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|datatype_help| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|datatype_help|
       #40Y(00 00 00 00 01 00 00 00 26 02 94 01 DA AF 30 01 AC 2F 02 AC 6B 03
            38 03 31 C5 0F 03 AC 6B 04 38 03 31 C5 0F 04 15 19 02)
       (|qi|::|<datatype_definition>| |qi|::|compile| |qi|::|warn-if-defined|
        |qi|::|*usertypes*| |qi|::|*all-usertypes*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|DataType|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5666 5668 (DEFUN warn-if-defined (DataTypeName) ...)-566|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|warn-if-defined| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|warn-if-defined|
       #53Y(00 00 00 00 01 00 00 00 26 02 AD 6B 00 38 03 31 C1 1F 20 38 02 72
            8F 00 10 01 DC B0 38 02 31 95 B1 B0 31 90 DD B0 38 02 31 95 11 AC
            81 90 00 2F 04 19 02 19 02)
       (|qi|::|*all-usertypes*| |SYSTEM|::|*FORMAT-CS*| "redefining "
        " can cause type errors." |qi|::|warn|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|DataTypeName|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5670 5670 (DEFMACRO theory (&REST X) ...)-567|
   #23Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC DD 72 4C 32 9C C5 19 01)
   (|qi|::|theory| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|theory|
       #21Y(00 00 00 00 02 00 00 00 26 03 95 02 DA DB AE 7B 02 61 02 19 04)
       (|qi|::|theory_help| |COMMON-LISP|::|QUOTE|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|SYSTEM|::|<MACRO-FORM>| |SYSTEM|::|<ENV-ARG>|) |COMMON-LISP|::|NIL| 1)
    (|COMMON-LISP|::|&REST| |qi|::|X|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5672 5675 (DEFUN theory_help (Theory) ...)-568|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|theory_help| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|theory_help|
       #31Y(01 00 00 00 01 00 00 00 26 02 DA C6 13 DC 67 00 00 01 30 03 05 00
            00 01 5B 11 18 01 00 19 02)
       ((|qi|::|*tc*|) (|qi|::|false|) |qi|::|<theory>| |qi|::|compile|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Theory|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5677 5713 (DEFUN <datatype_definition> (Stream) ...)-569|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<datatype_definition>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<datatype_definition>|
       #235Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 AC 88 01 80 42 AC 6F 02 AC
             88 01 1C AC 6F 03 AC 89 01 09 63 CA 14 61 02 16 02 1B 2F 94 00 A0
             5C 78 A0 5C 78 30 04 1B 6D 63 DF 61 02 16 01 1B 1B 94 00 A0 5C 78
             A0 5C 78 A0 5C 78 63 73 02 23 73 02 23 33 02 23 1B 21 63 DF 61 02
             F8 AC 89 01 80 8A AE 6F 00 AC 88 01 30 AC 6F 02 AC 88 01 10 AC 6F
             06 AC 89 01 4A 63 CA 14 61 02 16 02 1B 1D 63 DF 61 02 16 01 1B 15
             94 00 9F 5C 78 9F 5C 78 63 73 02 23 33 02 23 1B 1A 63 DF 61 02 F8
             AC 89 01 80 46 AF 6F 00 AC 88 01 33 AC 6F 06 AC 89 01 57 63 CA 14
             61 02 16 01 1B 27 94 00 9E 5C 78 63 33 02 23 1B 0D 0E 07 19 06 B0
             6F 06 AC 89 01 6A 63 CA 14 61 02 F8 AC 88 01 6B 15 19 05 63 DF 61
             02 F8 AC 88 01 63 15 19 04 15 19 03 15 19 02)
       (|qi|::|<lowercase>| |qi|::|failure?| |qi|::|<A-rules>| |qi|::|<end>|
        |qi|::|compile-datatype| #\Escape |qi|::|<datatype_error>|
        |qi|::|*Failure*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5715 5751 (DEFUN <theory> (Stream) ...)-570|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<theory>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<theory>|
       #235Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 AC 88 01 80 42 AC 6F 02 AC
             88 01 1C AC 6F 03 AC 89 01 09 63 CA 14 61 02 16 02 1B 2F 94 00 A0
             5C 78 A0 5C 78 30 04 1B 6D 63 DF 61 02 16 01 1B 1B 94 00 A0 5C 78
             A0 5C 78 A0 5C 78 63 73 02 23 73 02 23 33 02 23 1B 21 63 DF 61 02
             F8 AC 89 01 80 8A AE 6F 00 AC 88 01 30 AC 6F 02 AC 88 01 10 AC 6F
             06 AC 89 01 4A 63 CA 14 61 02 16 02 1B 1D 63 DF 61 02 16 01 1B 15
             94 00 9F 5C 78 9F 5C 78 63 73 02 23 33 02 23 1B 1A 63 DF 61 02 F8
             AC 89 01 80 46 AF 6F 00 AC 88 01 33 AC 6F 06 AC 89 01 57 63 CA 14
             61 02 16 01 1B 27 94 00 9E 5C 78 63 33 02 23 1B 0D 0E 07 19 06 B0
             6F 06 AC 89 01 6A 63 CA 14 61 02 F8 AC 88 01 6B 15 19 05 63 DF 61
             02 F8 AC 88 01 63 15 19 04 15 19 03 15 19 02)
       (|qi|::|<lowercase>| |qi|::|failure?| |qi|::|<B-rules>| |qi|::|<end>|
        |qi|::|compile-theory| #\Escape |qi|::|<theory_error>|
        |qi|::|*Failure*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5753 5760 (DEFUN <end> (V532) ...)-571|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<end>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<end>|
       #67Y(00 00 00 00 01 00 00 00 26 02 9E 20 15 63 94 02 70 00 89 01 0D 9E
            5C 20 09 63 9F 5C 79 70 00 88 01 15 9E 20 0D 9E 5C 20 09 63 9F 5C
            79 70 00 88 01 08 DD 2F 04 19 02 9E 19 02 94 01 6B 02 00 5D 5D 19
            02)
       (|qi|::|qi_=| |qi|::|wrapper| |qi|::|*qi-failure-object*| |qi|::|<end>|
        |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V532|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5762 5768 (DEFUN <datatype_error> (Stream) ...)-572|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<datatype_error>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<datatype_error>|
       #52Y(00 00 00 00 01 00 00 00 26 02 9E 5B 21 0C 63 C8 14 7B 02 AC 88 04
            19 15 19 02 9E 5B 79 9F 5C 78 61 02 78 DA A0 5B 78 A1 5B 79 70 01
            30 02 1B 60 0E 05 19 03)
       ("Syntax error in datatype here;~%~% ~A" |qi|::|cons| |qi|::|error|
        #\Escape |qi|::|failure?| |qi|::|*Failure*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5770 5776 (DEFUN <theory_error> (Stream) ...)-573|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<theory_error>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<theory_error>|
       #52Y(00 00 00 00 01 00 00 00 26 02 9E 5B 21 0C 63 C8 14 7B 02 AC 88 04
            19 15 19 02 9E 5B 79 9F 5C 78 61 02 78 DA A0 5B 78 A1 5B 79 70 01
            30 02 1B 60 0E 05 19 03)
       ("Syntax error in theory here;~%~% ~A" |qi|::|cons| |qi|::|error|
        #\Escape |qi|::|failure?| |qi|::|*Failure*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5778 5790 (DEFUN <A-rules> (Stream) ...)-574|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<A-rules>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<A-rules>|
       #91Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 AC 88 01 3E AC 6C 76 AC 89
            01 09 63 C8 14 61 02 16 01 1B 32 94 00 9F 5C 78 9F 5C 78 30 02 1B
            6D 94 00 9E 5C 78 63 30 02 1B 0D 0E 04 19 04 AE 6F 00 AC 89 01 6B
            63 C8 14 61 02 F8 AC 88 01 6B 15 19 03 63 DD 61 02 F8 AC 88 01 63
            15 19 02)
       (|qi|::|<A-rule>| |qi|::|failure?| |qi|::|cons| #\Escape
        |qi|::|*Failure*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5792 5793 (DEFUN raise-datatype-syntax-error (V533) ...)-575|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|raise-datatype-syntax-error| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|raise-datatype-syntax-error|
       #16Y(00 00 00 00 01 00 00 00 26 02 DA AE 30 01 19 02)
       ("Syntax error in datatype definition beginning here ~%~% ~A"
        |qi|::|error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V533|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5795 5807 (DEFUN <B-rules> (Stream) ...)-576|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<B-rules>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<B-rules>|
       #91Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 AC 88 01 3E AC 6C 76 AC 89
            01 09 63 C8 14 61 02 16 01 1B 32 94 00 9F 5C 78 9F 5C 78 30 02 1B
            6D 94 00 9E 5C 78 63 30 02 1B 0D 0E 04 19 04 AE 6F 00 AC 89 01 6B
            63 C8 14 61 02 F8 AC 88 01 6B 15 19 03 63 DD 61 02 F8 AC 88 01 63
            15 19 02)
       (|qi|::|<B-rule>| |qi|::|failure?| |qi|::|cons| #\Escape
        |qi|::|*Failure*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5809 5810 (DEFUN raise-theory-syntax-error (V534) ...)-577|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|raise-theory-syntax-error| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|raise-theory-syntax-error|
       #16Y(00 00 00 00 01 00 00 00 26 02 DA AE 30 01 19 02)
       ("Syntax error in datatype definition beginning here ~%~% ~A"
        |qi|::|error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V534|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5812 5848 (DEFUN <A-rule> (Stream) ...)-578|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<A-rule>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<A-rule>|
       #209Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 AC 88 01 80 6D AC 6F 02 AC
             88 01 80 46 AC 6F 03 AC 88 01 37 AC 6F 04 AC 88 01 28 AC 6F 05 AC
             89 01 0A 63 CD 14 61 02 16 04 1B 80 4A 94 00 A2 5C 78 A2 5C 78 E0
             A2 5C 78 63 70 07 70 07 70 07 30 07 1B 61 63 E2 61 02 16 03 1B 2B
             63 E2 61 02 16 02 1B 23 63 E2 61 02 16 01 1B 1B 94 00 A1 5C 78 A1
             5C 78 E6 A1 5C 78 63 70 07 70 07 70 07 30 07 1B 28 63 E2 61 02 F8
             AC 89 01 80 45 AE 6F 00 AC 88 01 32 AC 6F 09 AC 88 01 1F AC 6F 0A
             AC 88 01 10 AC 6F 0B AC 89 01 43 63 CD 14 61 02 16 03 1B 18 63 E2
             61 02 16 02 1B 10 63 E2 61 02 16 01 1B 08 0E 0D 19 04 63 E2 61 02
             F8 AC 88 01 73 15 19 03 15 19 02)
       (|qi|::|<A-preamble>| |qi|::|failure?| |qi|::|<sequents>|
        |qi|::|<underline>| |qi|::|<sequent>| |qi|::|<semi-colon>|
        |qi|::|underline| |qi|::|cons| #\Escape |qi|::|<simple_sequents>|
        |qi|::|<double_underline>| |qi|::|<simple_sequent>|
        |qi|::|doubleunderline| |qi|::|*Failure*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5850 5870 (DEFUN <B-rule> (Stream) ...)-579|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<B-rule>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<B-rule>|
       #119Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 AC 88 01 80 59 AC 6F 02 AC
             88 01 80 45 AC 6F 03 AC 88 01 36 AC 6F 04 AC 88 01 27 AC 6F 05 AC
             89 01 09 63 CD 14 61 02 16 04 1B 37 94 00 A2 5C 78 A2 5C 78 E0 A2
             5C 78 63 70 07 70 07 70 07 30 07 1B 62 63 E2 61 02 16 03 1B 18 63
             E2 61 02 16 02 1B 10 63 E2 61 02 16 01 1B 08 0E 09 19 03 63 E2 61
             02 F8 AC 88 01 73 15 19 02)
       (|qi|::|<B-preamble>| |qi|::|failure?| |qi|::|<sequents>|
        |qi|::|<underline>| |qi|::|<sequent>| |qi|::|<semi-colon>|
        |qi|::|underline| |qi|::|cons| #\Escape |qi|::|*Failure*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5872 5886 (DEFUN <A-preamble> (Stream) ...)-580|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<A-preamble>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<A-preamble>|
       #101Y(00 00 00 00 01 00 00 00 26 02 9E 5B 20 80 4A 9E 5B 78 25 00 80 43
             9E 5B 79 9F 5C 78 7B 02 6F 01 AC 89 02 09 63 CA 14 61 02 16 01 1B
             30 94 00 9E 5C 78 DA 63 70 03 30 04 1B 6C 94 00 9E 5C 5B 1B 0D 0E
             06 19 04 AE 6F 01 AC 89 02 6E 63 CA 14 61 02 F8 AC 88 02 6B 15 19
             03 63 DF 61 02 14 AC 88 02 63 15 19 02)
       (|qi|::|commit!| |qi|::|<side-conditions>| |qi|::|failure?| |qi|::|cons|
        |qi|::|append| #\Escape |qi|::|*Failure*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5888 5901 (DEFUN <B-preamble> (Stream) ...)-581|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<B-preamble>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<B-preamble>|
       #88Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 AC 88 01 3B AC 6F 02 AC 89
            01 09 63 C9 14 61 02 16 01 1B 2F 94 00 9F 5C 78 9F 5C 78 30 03 1B
            6D 94 00 9E 5C 5B 1B 0D 0E 05 19 04 AE 6F 02 AC 89 01 6E 63 C9 14
            61 02 F8 AC 88 01 6B 15 19 03 63 DE 61 02 F8 AC 88 01 63 15 19 02)
       (|qi|::|<title>| |qi|::|failure?| |qi|::|<side-conditions>| |qi|::|cons|
        #\Escape |qi|::|*Failure*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5903 5936 (DEFUN <title> (Stream) ...)-582|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<title>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<title>|
       #236Y(00 00 00 00 01 00 00 00 26 02 9E 5B 20 80 4A 9E 5B 78 25 00 80 43
             9E 5B 79 9F 5C 78 7B 02 6F 01 AC 89 02 09 63 C9 14 61 02 16 01 1B
             30 94 00 DA 9F 5C 78 63 70 03 30 03 1B 6C 94 02 DA A0 5C 78 A0 5C
             78 63 70 03 70 03 63 70 03 30 03 1B 80 75 9D 5B 1D 66 63 C9 1B 80
             6C 63 DE 61 02 14 AC 89 02 80 86 9F 5B 20 80 74 9F 5B 78 25 00 80
             6D 9F 5B 79 A0 5C 78 61 02 5B 20 80 59 9F 5B 79 A0 5C 78 61 02 5B
             5B 20 80 4C 9F 5B 79 A0 5C 78 61 02 5B 78 A0 5B 79 A1 5C 78 61 02
             5C 78 7B 02 A0 5B 79 A1 5C 78 61 02 5B 79 A1 5B 79 A2 5C 78 61 02
             5C 78 7B 02 AD 6F 01 AC 88 02 11 AC 6F 05 AC 89 02 FF 8D 63 C9 14
             61 02 16 04 1B 15 63 DE 61 02 16 03 1B 0D 63 C9 1B 06 0E 06 19 04
             63 C9 14 61 02 14 AC 88 02 72 15 19 03 15 19 02)
       (|qi|::|name| |qi|::|<lowercase>| |qi|::|failure?| |qi|::|cons| #\Escape
        |qi|::|<natnum>| |qi|::|*Failure*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5938 5944 (DEFUN <natnum> (Stream) ...)-583|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<natnum>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<natnum>|
       #110Y(00 00 00 00 01 00 00 00 26 02 9E 5B 20 80 53 9E 5B 79 9F 5C 78 61
             02 78 9F 5B 78 6F 00 AC 24 01 1E AC 25 04 2B C9 F8 AC 24 01 28 AC
             24 04 29 CA 14 AD 33 01 1E C6 16 01 1B 6C C9 16 01 1B 67 A0 5B 78
             DC 70 03 AC 24 01 6C AC 24 04 6D CA 1B 60 CA 1B 5D A0 5B 5B 1B 01
             CB F8 61 02 1B 08 0E 08 19 03 63 E0 61 02 14 AC 88 07 73 15 19 02)
       (|qi|::|integer?| |qi|::|true| 0. |qi|::|qi_>| |qi|::|false|
        "~S is not a boolean~%" #\Escape |qi|::|failure?| |qi|::|*Failure*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5946 5952 (DEFUN <lowercase> (Stream) ...)-584|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<lowercase>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<lowercase>|
       #111Y(00 00 00 00 01 00 00 00 26 02 9E 5B 20 80 54 9E 5B 79 9F 5C 78 61
             02 78 9F 5B 78 6F 00 AC 24 01 1E AC 25 04 2C C9 F8 AC 24 01 29 AC
             24 04 2A CA 14 AD 33 01 1E C6 16 01 1B 6C C9 16 01 1B 67 A0 5B 78
             6F 02 6F 03 AC 24 01 6B AC 24 04 6C CA 1B 5F CA 1B 5C A0 5B 5B 1B
             01 CB F8 61 02 1B 08 0E 08 19 03 63 E0 61 02 14 AC 88 07 73 15 19
             02)
       (|qi|::|symbol?| |qi|::|true| |qi|::|variable?| |qi|::|not|
        |qi|::|false| "~S is not a boolean~%" #\Escape |qi|::|failure?|
        |qi|::|*Failure*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5954 5969 (DEFUN <side-conditions> (Stream) ...)-585|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<side-conditions>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<side-conditions>|
       #118Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 AC 88 01 80 58 AC 6C 75 AC
             89 01 0A 63 C8 14 61 02 16 01 1B 80 4B 94 00 9F 5C 78 9F 5C 78 30
             02 1B 6C 94 00 9E 5C 78 63 30 02 1B 26 94 00 00 1B 0D 0E 05 19 05
             AF 6F 04 AC 89 01 70 63 C8 14 61 02 F8 AC 88 01 6B 15 19 04 AE 6F
             00 AC 89 01 52 63 C8 14 61 02 F8 AC 88 01 5B 15 19 03 63 DD 61 02
             F8 AC 88 01 63 15 19 02)
       (|qi|::|<side-condition>| |qi|::|failure?| |qi|::|cons| #\Escape
        |qi|::|<e>| |qi|::|*Failure*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5971 5988 (DEFUN <side-condition> (Stream) ...)-586|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<side-condition>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<side-condition>|
       #151Y(00 00 00 00 01 00 00 00 26 02 9E 5B 20 3C 9E 5B 78 25 00 36 9E 5B
             79 9F 5C 78 7B 02 6F 01 AC 89 02 09 63 C9 14 61 02 16 01 1B 23 94
             00 DA 9F 5C 78 63 70 03 30 03 1B 6C 94 00 DF A0 5C 78 A0 5C 78 63
             70 03 70 03 30 03 1B 2B 63 DE 61 02 14 AC 89 02 80 40 9F 5B 20 30
             9F 5B 78 25 05 2A 9F 5B 79 A0 5C 78 7B 02 6F 06 AC 88 02 10 AC 6F
             07 AC 89 02 45 63 C9 14 61 02 16 02 1B 10 63 DE 61 02 16 01 1B 08
             0E 08 19 04 63 DE 61 02 14 AC 88 02 73 15 19 03 15 19 02)
       (|qi|::|if| |qi|::|<item>| |qi|::|failure?| |qi|::|cons| #\Escape
        |qi|::|let| |qi|::|<item1>| |qi|::|<item2>| |qi|::|*Failure*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5990 5994 (DEFUN <item1> (Stream) ...)-587|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<item1>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<item1>|
       #41Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 AC 89 01 0D 63 C7 14 61 02
            F8 AC 88 01 0A 15 19 02 94 00 9E 5C 5B 1B 6E 0E 03 19 03)
       (|qi|::|<item>| |qi|::|failure?| #\Escape |qi|::|*Failure*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|5996 6000 (DEFUN <item2> (Stream) ...)-588|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<item2>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<item2>|
       #41Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 AC 89 01 0D 63 C7 14 61 02
            F8 AC 88 01 0A 15 19 02 94 00 9E 5C 5B 1B 6E 0E 03 19 03)
       (|qi|::|<item>| |qi|::|failure?| #\Escape |qi|::|*Failure*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6002 6006 (DEFUN <item> (Stream) ...)-589|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<item>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<item>|
       #44Y(00 00 00 00 01 00 00 00 26 02 9E 5B 21 0C 63 C5 14 7B 02 AC 88 01
            11 15 19 02 9E 5B 79 9F 5C 78 61 02 78 9F 5B 5B 1B 68 0E 02 19 03)
       (#\Escape |qi|::|failure?| |qi|::|*Failure*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6008 6028 (DEFUN <sequents> (Stream) ...)-590|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<sequents>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<sequents>|
       #147Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 AC 88 01 35 AC 6F 02 AC 88
             01 1C AC 6C 6F AC 89 01 09 63 C9 14 61 02 16 02 1B 22 94 00 A0 5C
             78 9F 5C 78 30 03 1B 6D 63 DE 61 02 16 01 1B 0E 94 00 9F 5C 78 63
             30 03 1B 1A 63 DE 61 02 F8 AC 89 01 80 40 AE 6F 00 AC 88 01 2D AC
             6F 02 AC 89 01 5E 63 C9 14 61 02 16 01 1B 21 94 00 00 1B 0D 0E 06
             19 05 AF 6F 05 AC 89 01 70 63 C9 14 61 02 F8 AC 88 01 6B 15 19 04
             63 DE 61 02 F8 AC 88 01 63 15 19 03 15 19 02)
       (|qi|::|<sequent>| |qi|::|failure?| |qi|::|<semi-colon>| |qi|::|cons|
        #\Escape |qi|::|<e>| |qi|::|*Failure*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6030 6043 (DEFUN <simple_sequents> (Stream) ...)-591|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<simple_sequents>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<simple_sequents>|
       #91Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 AC 88 01 3E AC 6C 76 AC 89
            01 09 63 C8 14 61 02 16 01 1B 32 94 00 9F 5C 78 9F 5C 78 30 02 1B
            6D 94 00 9E 5C 78 63 30 02 1B 0D 0E 04 19 04 AE 6F 00 AC 89 01 6B
            63 C8 14 61 02 F8 AC 88 01 6B 15 19 03 63 DD 61 02 F8 AC 88 01 63
            15 19 02)
       (|qi|::|<simple_sequent>| |qi|::|failure?| |qi|::|cons| #\Escape
        |qi|::|*Failure*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6045 6053 (DEFUN <simple_sequent> (Stream) ...)-592|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<simple_sequent>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<simple_sequent>|
       #62Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 AC 88 01 21 AC 6F 02 AC 89
            01 09 63 C9 14 61 02 16 01 1B 15 94 00 63 A0 5C 78 63 70 03 30 03
            1B 6C 0E 05 19 03 63 DE 61 02 F8 AC 88 01 73 15 19 02)
       (|qi|::|<formula>| |qi|::|failure?| |qi|::|<semi-colon>| |qi|::|cons|
        #\Escape |qi|::|*Failure*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6055 6060 (DEFUN <semi-colon> (Stream) ...)-593|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<semi-colon>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<semi-colon>|
       #69Y(00 00 00 00 01 00 00 00 26 02 9E 5B 21 16 63 DE 61 02 14 AC 88 06
            2A 15 19 02 A0 5B 5B 1B 1D DF AD 33 01 1E 9E 5B 79 9F 5C 78 61 02
            78 9F 5B 78 DA 70 01 AC 24 02 63 AC 25 03 64 C9 F8 61 02 1B 51 0E
            07 19 03)
       (|qi|::|;| |qi|::|qi_=| |qi|::|true| |qi|::|false| #\Escape
        "~S is not a boolean~%" |qi|::|failure?| |qi|::|*Failure*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6062 6079 (DEFUN <sequent> (Stream) ...)-594|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<sequent>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<sequent>|
       #120Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 AC 88 01 80 59 9D 5B 20 2C
             9D 5B 78 25 02 26 9D 5B 79 9E 5C 78 7B 02 6F 03 AC 89 01 09 63 CA
             14 61 02 16 01 1B 3D 94 00 9F 5C 78 9F 5C 78 63 70 04 30 04 1B 6A
             63 CA 1B 27 94 00 63 9F 5C 78 63 70 04 30 04 1B 0D 0E 06 19 04 AE
             6F 03 AC 89 01 68 63 CA 14 61 02 F8 AC 88 01 6B 15 19 03 63 CA 14
             61 02 F8 AC 88 01 62 15 19 02)
       (|qi|::|<formulae>| |qi|::|failure?| |qi|::|>>| |qi|::|<formula>|
        |qi|::|cons| #\Escape |qi|::|*Failure*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6081 6098 (DEFUN <formulae> (Stream) ...)-595|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<formulae>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<formulae>|
       #133Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 AC 88 01 80 67 AC 6F 02 AC
             88 01 1D AC 6C 6E AC 89 01 0A 63 C9 14 61 02 16 02 1B 80 53 94 00
             A0 5C 78 9F 5C 78 30 03 1B 6C 63 DE 61 02 16 01 1B 3F 94 00 9E 5C
             78 63 30 03 1B 26 94 00 00 1B 0D 0E 06 19 05 AF 6F 05 AC 89 01 70
             63 C9 14 61 02 F8 AC 88 01 6B 15 19 04 AE 6F 00 AC 89 01 52 63 C9
             14 61 02 F8 AC 88 01 5B 15 19 03 63 DE 61 02 F8 AC 88 01 63 15 19
             02)
       (|qi|::|<formula>| |qi|::|failure?| |qi|::|<comma>| |qi|::|cons|
        #\Escape |qi|::|<e>| |qi|::|*Failure*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6100 6104 (DEFUN <comma> (Stream) ...)-596|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<comma>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<comma>|
       #50Y(00 00 00 00 01 00 00 00 26 02 9E 5B 20 06 9E 5B 78 24 00 0C 63 C6
            14 7B 02 AC 88 02 11 15 19 02 9E 5B 79 9F 5C 78 61 02 78 DA 00 5D
            1B 68 0E 03 19 03)
       (|COMMON-LISP|::|++| #\Escape |qi|::|failure?| |qi|::|*Failure*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6106 6121 (DEFUN <formula> (Stream) ...)-597|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<formula>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<formula>|
       #126Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 AC 88 01 80 5F 9D 5B 20 36
             9D 5B 78 25 02 30 9D 5B 79 9E 5C 78 7B 02 6F 03 AC 89 01 0A 63 CD
             14 61 02 16 01 1B 80 42 94 00 9F 5C 78 6F 04 6F 05 DC A0 5C 78 6F
             06 63 70 07 70 07 30 07 1B 60 63 CD 1B 23 94 00 9E 5C 78 2F 05 1B
             0D 0E 09 19 04 AE 6F 00 AC 89 01 6C 63 CD 14 61 02 F8 AC 88 01 6B
             15 19 03 63 CD 14 61 02 F8 AC 88 01 62 15 19 02)
       (|qi|::|<ob>| |qi|::|failure?| |qi|::|$$| |qi|::|<type>| |qi|::|curry|
        |qi|::|cons->@c| |qi|::|normalise_type| |qi|::|cons| #\Escape
        |qi|::|*Failure*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6123 6132 (DEFUN <type> (Stream) ...)-598|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<type>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<type>|
       #163Y(00 00 00 00 01 00 00 00 26 02 9E 5B 20 80 88 9E 5B 79 9F 5C 78 61
             02 78 9F 5B 78 6F 00 AC 24 01 80 48 AC 25 02 80 5C A0 5B 78 6F 03
             AC 24 01 3D AC 25 02 80 43 A1 5B 78 DE DF E0 63 70 07 70 07 70 07
             70 08 AC 24 01 28 AC 25 02 29 C7 16 01 F8 AC 24 01 27 AC 25 02 28
             C7 16 01 F8 AC 24 01 26 AC 24 02 25 CE 14 AD 33 01 1E C6 1B 6E C6
             1B 5F C6 16 01 1B 5A CE 1B 6D CE 1B 6A C6 16 01 1B 5B CE 1B 62 CE
             1B 5F CF 1B 05 A0 5B 78 2F 0B F8 61 02 1B 08 0E 0D 19 03 63 E4 61
             02 14 AC 88 0C 73 15 19 02)
       (|qi|::|underline?| |qi|::|true| |qi|::|false| |qi|::|double_underline?|
        |qi|::|;| |qi|::|>>| |qi|::|$$| |qi|::|cons| |qi|::|element?|
        "~S is not a boolean~%" #\Escape |qi|::|curry_type| |qi|::|failure?|
        |qi|::|*Failure*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6134 6144 (DEFUN <obs> (Stream) ...)-599|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<obs>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<obs>|
       #86Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 AC 88 01 39 AC 6C 76 AC 89
            01 09 63 C8 14 61 02 16 01 1B 2D 94 00 9F 5C 78 9F 5C 78 30 02 1B
            6D 94 00 00 1B 0D 0E 05 19 04 AE 6F 04 AC 89 01 70 63 C8 14 61 02
            F8 AC 88 01 6B 15 19 03 63 DD 61 02 F8 AC 88 01 63 15 19 02)
       (|qi|::|<formula>| |qi|::|failure?| |qi|::|cons| #\Escape |qi|::|<e>|
        |qi|::|*Failure*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6146 6165 (DEFUN <ob> (Stream) ...)-600|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<ob>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<ob>|
       #246Y(00 00 00 00 01 00 00 00 26 02 9E 5B 20 80 5D 9E 5B 5B 20 80 57 9E
             5B 78 9F 5C 78 7B 02 9F 5B 79 A0 5C 78 7B 02 AD 6F 00 AC 89 01 10
             63 C7 14 61 02 16 03 1B 3B 94 01 9E 5C 5B 1B 72 9D 5B 1D 75 63 C7
             1B 6A C9 1B 80 83 C9 1B 80 71 C9 16 01 1B 80 6B D1 1B 80 80 D1 1B
             80 7C C9 16 01 1B 80 6B D1 1B 80 72 D1 1B 80 6E C7 1B 80 72 63 DC
             61 02 14 AC 89 01 80 7D 9F 5B 20 80 6C 9F 5B 79 A0 5C 78 61 02 78
             A0 5B 78 6F 03 AC 24 04 FF B6 AC 25 05 52 A1 5B 78 6F 06 AC 24 04
             FF AC AC 25 05 FF B5 A2 5B 78 E1 E2 E3 63 70 0A 70 0A 70 0A 70 0B
             AC 24 04 FF 97 AC 25 05 FF 98 CA 16 01 F8 AC 24 04 FF 97 AC 25 05
             FF 98 CA 16 01 F8 AC 24 04 FF 97 AC 24 05 06 D1 14 AD 33 01 1E A1
             5B 5B F8 61 02 1B 08 0E 0D 19 04 63 DC 61 02 14 AC 88 01 73 15 19
             03 15 19 02)
       (|qi|::|<obs>| |qi|::|failure?| #\Escape |qi|::|underline?| |qi|::|true|
        |qi|::|false| |qi|::|double_underline?| |qi|::|;| |qi|::|>>| |qi|::|$$|
        |qi|::|cons| |qi|::|element?| "~S is not a boolean~%"
        |qi|::|*Failure*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6167 6167 (DEFUN cons->@c (V537) ...)-601|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|cons->@c| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|cons->@c|
       #18Y(00 00 00 00 01 00 00 00 26 02 DA DB AF 2D 03 02 19 02)
       (|qi|::|@c| |qi|::|cons| |qi|::|subst|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V537|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6169 6174 (DEFUN <underline> (Stream) ...)-602|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<underline>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<underline>|
       #68Y(00 00 00 00 01 00 00 00 26 02 9E 5B 21 16 63 DD 61 02 14 AC 88 05
            29 15 19 02 A0 5B 5B 1B 1C DE AD 33 01 1E 9E 5B 79 9F 5C 78 61 02
            78 9F 5B 78 6F 00 AC 24 01 64 AC 25 02 65 C8 F8 61 02 1B 52 0E 06
            19 03)
       (|qi|::|underline?| |qi|::|true| |qi|::|false| #\Escape
        "~S is not a boolean~%" |qi|::|failure?| |qi|::|*Failure*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6176 6181 (DEFUN <double_underline> (Stream) ...)-603|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|<double_underline>| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|<double_underline>|
       #68Y(00 00 00 00 01 00 00 00 26 02 9E 5B 21 16 63 DD 61 02 14 AC 88 05
            29 15 19 02 A0 5B 5B 1B 1C DE AD 33 01 1E 9E 5B 79 9F 5C 78 61 02
            78 9F 5B 78 6F 00 AC 24 01 64 AC 25 02 65 C8 F8 61 02 1B 52 0E 06
            19 03)
       (|qi|::|double_underline?| |qi|::|true| |qi|::|false| #\Escape
        "~S is not a boolean~%" |qi|::|failure?| |qi|::|*Failure*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Stream|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6183 6186 (DEFUN double_underline? (V540) ...)-604|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|double_underline?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|double_underline?|
       #52Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 AC 24 01 10 AC 24 04 1C CA
            14 AD 33 01 1E C6 19 04 C9 19 04 AE 6F 02 6F 03 AC 24 01 71 AC 24
            04 70 CA 1B 65 C9 19 03)
       (|qi|::|symbol?| |qi|::|true| |qi|::|explode| |qi|::|double_underlines?|
        |qi|::|false| "~S is not a boolean~%")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V540|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6188 6191 (DEFUN underlines? (V547) ...)-605|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|underlines?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|underlines?|
       #36Y(00 00 00 00 01 00 00 00 26 02 92 01 0C C5 19 02 95 01 29 01 03 00
            93 01 74 9E 20 05 94 01 24 01 6F C7 19 02)
       (|qi|::|true| #\_ |qi|::|false|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V547|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6193 6195 (DEFUN underline? (V548) ...)-606|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|underline?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|underline?|
       #52Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 AC 24 01 10 AC 24 04 1C CA
            14 AD 33 01 1E C6 19 04 C9 19 04 AE 6F 02 6F 03 AC 24 01 71 AC 24
            04 70 CA 1B 65 C9 19 03)
       (|qi|::|symbol?| |qi|::|true| |qi|::|explode| |qi|::|underlines?|
        |qi|::|false| "~S is not a boolean~%")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V548|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6197 6201 (DEFUN double_underlines? (V555) ...)-607|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|double_underlines?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|double_underlines?|
       #36Y(00 00 00 00 01 00 00 00 26 02 92 01 0C C5 19 02 95 01 29 01 03 00
            93 01 74 9E 20 05 94 01 24 01 6F C7 19 02)
       (|qi|::|true| #\= |qi|::|false|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V555|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6203 6203 (DEFUN compile-theory (V556 V557) ...)-608|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|compile-theory| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|compile-theory|
       #18Y(00 00 00 00 02 00 00 00 26 03 AE AE DA 2D 03 01 19 03)
       (1. |qi|::|compile-theory-help|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V556| |qi|::|V557|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6205 6210 (DEFUN compile-theory-help (V562 V563 V564) ...)-609|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|compile-theory-help| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|compile-theory-help|
       #43Y(00 00 00 00 03 00 00 00 26 04 92 02 16 00 19 04 AF 94 03 AF 2D 03
            00 AF 95 03 96 03 29 03 07 00 93 02 6A 9F 21 6A DB 2F 02 19 04)
       (|qi|::|compile-theory-rule| |qi|::|compile-theory-help|
        |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V562| |qi|::|V563| |qi|::|V564|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6212 6216 (DEFUN compile-theory-rule (V565 V566 V567) ...)-610|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|compile-theory-rule| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|compile-theory-rule|
       #38Y(00 00 00 00 03 00 00 00 26 04 AF AF AF 2D 03 00 AF AE DB 6F 02 B1
            DD 70 04 70 05 2D 03 06 AF AF AF 2D 03 07 19 04)
       (|qi|::|typecheck-refinement-rule| "f" |qi|::|gensym| |qi|::|functional|
        |qi|::|asm| |qi|::|process_asm_to_functions| |qi|::|put-prop|
        |qi|::|generate_refinement_function|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V565| |qi|::|V566| |qi|::|V567|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6218 6250 (DEFUN typecheck-refinement-rule (V570 V571 V572) ...)-611|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|typecheck-refinement-rule| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|typecheck-refinement-rule|
       #311Y(00 00 00 00 03 00 00 00 26 04 9F 20 80 56 9F 5B 20 80 51 9F 5B 5B
             20 80 4B 9F 5B 5B 78 25 00 80 43 9F 5B 5B 5C 20 3D 9F 5B 5B 5C 5C
             1C 36 9F 5C 20 32 9F 5C 5C 20 2D 9F 5C 5C 78 25 01 26 9F 5C 5C 5C
             20 20 9F 5C 5C 5C 5B 20 19 9F 5C 5C 5C 5B 5C 20 11 9F 5C 5C 5C 5B
             5C 5C 1C 08 9F 5C 5C 5C 5C 1D 80 85 9F 20 80 CA 9F 5C 20 80 C5 9F
             5C 5C 20 80 BF 9F 5C 5C 78 25 01 80 B7 9F 5C 5C 5C 20 80 B0 9F 5C
             5C 5C 5B 20 80 A8 9F 5C 5C 5C 5B 5C 20 80 9F 9F 5C 5C 5C 5B 5C 5C
             1C 80 95 9F 5C 5C 5C 5C 1C 80 8D 95 02 95 00 95 00 94 00 94 00 95
             01 94 00 B6 AF AE B7 6E 04 02 AC 24 03 80 59 AC 24 05 80 6B CB 14
             AD 33 01 1E C8 19 11 CA 19 11 BB B0 AF 94 0E 95 0E B5 6E 06 04 AC
             24 03 6B AC 24 05 6A CB 1B 5F CA 19 10 95 02 94 03 95 01 94 01 95
             01 95 01 94 01 94 01 94 01 95 02 94 00 BA AF AE B2 6E 04 02 AC 24
             03 46 AC 24 05 58 CB 1B FF B3 C8 19 0D CA 19 0D B7 B0 AF 94 0A 94
             0E BA 6E 06 04 AC 24 03 6B AC 24 05 6A CB 1B FF 96 CA 19 0C E1 2F
             08 19 04)
       (|qi|::|name| |qi|::|underline| |qi|::|refinement-integrity-check|
        |qi|::|true| |qi|::|refinement-correctness-check| |qi|::|false|
        "~S is not a boolean~%" |qi|::|typecheck-refinement-rule|
        |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V570| |qi|::|V571| |qi|::|V572|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6252 6265 (DEFUN refinement-integrity-check (V2330 V2331 V2332 ...) ...)-612|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|refinement-integrity-check| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|refinement-integrity-check|
       #66Y(00 00 00 00 04 00 00 00 26 05 AF AF 00 5D 7A 6F 00 6F 01 DC B1 6F
            03 6F 04 B1 6F 05 00 5D 5D 7A E0 E1 00 5D 7A E2 E1 00 5D 5D 7A 6F
            09 AE AE AE 6E 03 0A E5 70 0C 24 0D 03 D2 19 08 B0 B4 30 0E 19 08)
       (|qi|::|extract_variables| |qi|::|build_patt_env| |qi|::|@p|
        |qi|::|@c-wffs| |qi|::|stvars-but-bound| |qi|::|stvars| |qi|::|list|
        |qi|::|wff| |COMMON-LISP|::|*| |qi|::|normalise_type|
        |qi|::|typechecks?| |qi|::|false| |qi|::|qi_=| |qi|::|true|
        |qi|::|raise-result-error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V2330| |qi|::|V2331| |qi|::|V2332| |qi|::|V2333|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6267 6303 (DEFUN refinement-correctness-check (V2071 V2072 V2073 ...) ...)-613|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|refinement-correctness-check| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|refinement-correctness-check|
       #144Y(00 00 00 00 06 00 00 00 26 00 B1 6F 00 DB DC DD 00 5D 7A 00 5D 5D
             7A B1 6F 04 DB DD 00 5D 5D 7A DF DB DC DD 00 5D 7A 00 5D 5D 7A E0
             DB DC E1 00 5D 7A 00 5D 5D 7A E2 DB DC E3 00 5D 7A 00 5D 5D 7A E4
             DB DC DC DD 00 5D 7A E5 DD 00 5D 5D 7A 00 5D 7A 00 5D 5D 7A 00 5D
             5D 5D 5D 5D 7A 6F 0C 6F 0D AF B1 6F 0E 70 0F 6F 10 DC DC DD 00 5D
             7A E5 DD 00 5D 5D 7A 00 5D 7A 6F 11 AE AE AE 6E 03 12 ED 70 14 24
             15 04 03 15 19 0A B0 B6 30 16 19 0A)
       (|qi|::|@c-wffs| |qi|::|$$| |qi|::|list| |qi|::|wff| |qi|::|cons->@c|
        |qi|::|Assumptions| |qi|::|Notes| |qi|::|note| |qi|::|Parameters|
        |qi|::|parameter| |qi|::|Sequents| |COMMON-LISP|::|*| |qi|::|stvars|
        |qi|::|normalise_type_env| |qi|::|@c-sequents|
        |qi|::|construct_conclusion| |qi|::|stvars-but-bound|
        |qi|::|normalise_type| |qi|::|typechecks?| |qi|::|false| |qi|::|qi_=|
        |qi|::|true| |qi|::|raise-result-error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V2071| |qi|::|V2072| |qi|::|V2073| |qi|::|V2074| |qi|::|V2075|
        |qi|::|V2076|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6305 6328 (DEFUN stvars-but-bound (V595) ...)-614|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|stvars-but-bound| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|stvars-but-bound|
       #149Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 88 01 3C 9E 20 1B 94 01 25
             04 16 9E 5C 20 12 9E 5C 5C 20 0D 9E 5C 5C 5C 20 07 9E 5C 5C 5C 5C
             1D 24 9E 20 14 94 01 25 06 0F 9E 5C 20 0B 9E 5C 5C 20 06 9E 5C 5C
             5C 1D 2F 9E 21 80 45 9E 19 02 DC AE 30 03 19 02 95 01 94 00 95 01
             DE AE 94 02 6C FF AB B0 DC B2 70 03 A2 5C 78 6C FF A0 6E 03 05 00
             5D 5D 5D 5D 19 05 95 01 94 00 E0 AD AE DC B0 70 03 A2 5C 78 6C FF
             85 6E 03 05 00 5D 5D 5D 19 04 E1 AE 33 00 16 19 02)
       (|qi|::|variable?| |qi|::|wrapper| |qi|::|&&| |qi|::|concat| |qi|::|let|
        |qi|::|subst| |qi|::|/.| |qi|::|stvars-but-bound|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V595|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6330 6331 (DEFUN raise-result-error (V601 V602) ...)-615|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|raise-result-error| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|raise-result-error|
       #18Y(00 00 00 00 02 00 00 00 26 03 DA AF AF 2D 03 01 19 03)
       ("type failure in conclusion of rule ~A of theory ~A~%" |qi|::|error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V601| |qi|::|V602|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6333 6336 (DEFUN refine (Theory N Params ...) ...)-616|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|refine| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|refine|
       #29Y(00 00 00 00 04 00 00 00 26 05 6B 00 32 B1 0F 00 B0 B0 DB 6E 03 02
            AC AF B1 36 02 19 06)
       (|qi|::|*inferences*| |COMMON-LISP|::|IDENTITY| |qi|::|get-prop|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Theory| |qi|::|N| |qi|::|Params| |qi|::|Goalstack|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6338 6341 (DEFUN collect_or_return (Goals) ...)-617|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|collect_or_return| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|collect_or_return|
       #30Y(00 00 00 00 01 00 00 00 26 02 AD 24 00 04 DB 8C 57 03 9E 19 02 AD
            0E 01 5D 0F 01 C5 19 02)
       (#\Escape |qi|::|*collect*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Goals|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6343 6346 (DEFUN fail-if (F X) ...)-618|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|fail-if| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|fail-if|
       #23Y(00 00 00 00 02 00 00 00 26 03 AE AE 76 01 24 00 03 9E 19 03 C6 19
            03)
       (|qi|::|true| #\Escape)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|F| |qi|::|X|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6348 6351 (DEFUN collect (Theory N Parameters ...) ...)-619|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|collect| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|collect|
       #40Y(01 00 00 00 04 00 00 00 26 05 DA C6 13 67 00 00 04 67 00 00 03 67
            00 00 02 67 00 00 01 2D 04 02 0E 03 11 18 01 00 19 05)
       ((|qi|::|*collect*|) (|COMMON-LISP|::|NIL|) |qi|::|refine|
        |qi|::|*collect*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Theory| |qi|::|N| |qi|::|Parameters| |qi|::|Goals|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6353 6363 (DEFUN @c-sequents (V609) ...)-620|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|@c-sequents| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|@c-sequents|
       #69Y(00 00 00 00 01 00 00 00 26 02 92 01 21 00 19 02 94 01 DA DB 94 02
            6F 02 A0 5C 78 6F 03 00 5D 5D 7A 95 04 6C 06 00 5D 5D 5D 19 03 93
            01 5F 9E 20 0F 9E 5B 20 0B 9E 5B 5C 20 06 9E 5B 5C 5C 1D 50 DE 2F
            05 19 02)
       (|qi|::|@c| |qi|::|@p| |qi|::|@c-wffs| |qi|::|cons->@c|
        |qi|::|@c-sequents| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V609|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6365 6369 (DEFUN @c-wffs (V611) ...)-621|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|@c-wffs| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|@c-wffs|
       #42Y(00 00 00 00 01 00 00 00 26 02 92 01 15 00 19 02 DA 94 02 6F 01 95
            03 6C 06 00 5D 5D 5D 19 02 93 01 6B 9E 21 6B DC 2F 03 19 02)
       (|qi|::|@c| |qi|::|cons->@c| |qi|::|@c-wffs|
        |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V611|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6371 6386 (DEFUN construct_conclusion (V612 V613) ...)-622|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|construct_conclusion| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|construct_conclusion|
       #121Y(00 00 00 00 02 00 00 00 26 03 92 02 2E 9E 19 03 DA A0 5B 5C 78 95
             04 B0 6C 1E 63 00 5D 5D 5D 5D 19 03 94 02 95 00 DB 94 01 9F 5C 78
             95 07 B3 6C 07 00 5D 5D 5D 5D 19 05 93 02 52 9F 20 16 9F 5B 20 12
             9F 5B 78 25 00 0C 9F 5B 5C 20 07 9F 5B 5C 5C 1D FF BC 9F 20 1D 9F
             5B 20 19 9F 5B 78 25 01 13 9F 5B 5C 20 0E 9F 5B 5C 5C 20 08 9F 5B
             5C 5C 5C 1D FF AE DC 2F 03 19 03)
       (|qi|::|if| |qi|::|let| |qi|::|construct_conclusion|
        |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V612| |qi|::|V613|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6388 6389 (DEFUN raise-premisses-error (V616 V617) ...)-623|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|raise-premisses-error| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|raise-premisses-error|
       #18Y(00 00 00 00 02 00 00 00 26 03 DA AF AF 2D 03 01 19 03)
       ("type failure in premisses of rule ~A of theory ~A~%" |qi|::|error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V616| |qi|::|V617|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6391 6400 (DEFUN generate_refinement_function (V618 V619 V620) ...)-624|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|generate_refinement_function| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|generate_refinement_function|
       #80Y(00 00 00 00 03 00 00 00 26 04 9F 20 35 9F 5C 20 31 9F 5C 5C 20 2C
            9F 5C 5C 78 25 00 25 9F 5C 5C 5C 20 1F 9F 5C 5C 5C 5B 20 18 9F 5C
            5C 5C 5B 5C 20 10 9F 5C 5C 5C 5B 5C 5C 1C 07 9F 5C 5C 5C 5C 1D 05
            DC 2F 03 19 04 AF 94 03 AF 2D 03 01 19 04)
       (|qi|::|underline| |qi|::|grf*| |qi|::|generate_refinement_function|
        |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V618| |qi|::|V619| |qi|::|V620|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6402 6432 (DEFUN grf* (V631 V632 V633) ...)-625|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|grf*| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|grf*|
       #298Y(00 00 00 00 03 00 00 00 26 04 93 02 80 49 9F 20 2A 9F 5B 20 26 9F
             5B 78 25 00 20 9F 5B 5C 20 1B 9F 5B 5C 5B 20 15 9F 5B 5C 5B 5C 20
             0E 9F 5B 5C 5B 5C 5C 1C 06 9F 5B 5C 5C 1D 1F 9F 20 16 9F 5B 20 12
             9F 5B 78 25 00 0C 9F 5B 5C 20 07 9F 5B 5C 5C 1D 80 8D D9 19 04 00
             19 04 94 02 95 00 94 00 95 00 94 01 94 01 AC 6F 01 38 02 72 8F 00
             10 02 DD B0 38 02 31 95 B2 B0 31 90 DE B0 38 02 31 95 B0 1B 0B 94
             00 83 01 B1 31 90 DF B1 31 94 AC 8D 9F 71 16 01 E0 B0 38 02 31 95
             BA B0 31 90 DF B0 31 94 B8 B0 31 90 E1 B0 38 02 31 95 B0 1B 0B 94
             00 83 01 B1 31 90 DF B1 31 94 AC 8D 9F 71 16 01 E2 B0 38 02 31 95
             11 AC 32 90 16 01 F8 2F 09 AD AD 6F 0A 30 0B E6 6B 0D AF AF 6F 0A
             33 03 15 19 0A 94 02 95 00 94 00 38 02 72 8F 00 10 02 E8 B0 38 02
             31 95 B0 B0 31 90 E9 B0 38 02 31 95 B6 B0 31 90 DF B0 31 94 B4 B0
             31 90 EA B0 38 02 31 95 11 AC 81 90 00 2F 09 AC EB EC EB 00 5D 5D
             7A 30 0B ED 6B 0D AE 33 02 15 19 07)
       (|qi|::|name| |qi|::|rpt_times| |SYSTEM|::|*FORMAT-CS*| "(define "
        "\n
                                         "
        #\Space " Goals -> (refine " " (list " ") Goals))"
        |qi|::|compile-string| |qi|::|constr_tactic_type| |qi|::|newfuntype*|
        #Y(|qi|::|grf*-1|
           #34Y(00 00 00 00 03 00 00 00 21 19 00 10 00 B2 B4 31 90 DB B4 38 02
                31 95 B1 B4 31 90 B3 31 97 A1 11 19 05)
           (|SYSTEM|::|*FORMAT-CS*| " : ")
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        |COMMON-LISP|::|*STANDARD-OUTPUT*| "(define "
        "\n
                                          Goals -> (refine "
        " NIL Goals))" |qi|::|goals| |qi|::|-->|
        #Y(|qi|::|grf*-2|
           #27Y(00 00 00 00 02 00 00 00 21 18 00 10 00 B1 B3 31 90 DB B3 38 02
                31 95 A1 11 19 04)
           (|SYSTEM|::|*FORMAT-CS*| " : (goals --> goals)\n")
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        |qi|::|ok|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V631| |qi|::|V632| |qi|::|V633|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6434 6437 (DEFUN rpt_times (V643) ...)-626|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|rpt_times| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|rpt_times|
       #27Y(00 00 00 00 01 00 00 00 26 02 AD 24 00 0A DB 6F 02 97 02 28 75 5D
            19 02 00 19 02)
       (0. "Param" |qi|::|gensym|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V643|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6439 6443 (DEFUN constr_tactic_type (V644) ...)-627|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|constr_tactic_type| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|constr_tactic_type|
       #32Y(00 00 00 00 01 00 00 00 26 02 AD 24 00 0D DD DC 97 03 28 76 14 00
            5D 5D 5D 19 02 DB DC C6 1B 74)
       (0. |qi|::|goals| |qi|::|-->| |qi|::|parameter|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V644|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6445 6461 (DEFUN process_asm_to_functions (V645 V646) ...)-628|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|process_asm_to_functions| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|process_asm_to_functions|
       #151Y(00 00 00 00 02 00 00 00 26 03 9E 20 32 94 01 25 00 2D 9E 5C 20 29
             9E 5C 5C 20 24 9E 5C 5C 78 25 01 1D 9E 5C 5C 5C 20 17 9E 5C 5C 5C
             78 25 02 0F 9E 5C 5C 5C 5C 20 08 9E 5C 5C 5C 5C 5C 1D 05 E7 2F 0E
             19 03 95 01 38 02 72 8F 94 01 9F 5C 5C 5C 78 6F 03 00 10 04 DF B2
             38 02 31 95 B5 B2 31 90 E0 B2 38 02 31 95 B1 2F 07 10 08 B3 B5 31
             8D 11 B1 2F 09 E4 B2 38 02 31 95 B1 2F 07 10 08 B2 B5 31 8D 11 B1
             2F 09 E5 B2 38 02 31 95 11 16 02 AC 81 90 00 2F 0C 19 04)
       (|qi|::|match| |qi|::|and| |qi|::|then|
        |qi|::|process_constraint_functions| |SYSTEM|::|*FORMAT-CS*| "(define "
        "\n
           (list (cons (@p Context "
        |SYSTEM|::|STREAM-START-S-EXPRESSION|
        |COMMON-LISP|::|*PRINT-RIGHT-MARGIN*|
        |SYSTEM|::|STREAM-END-S-EXPRESSION|
        ") Sequents) Notes Proof) Parameters <- (let Accum NIL "
        ")\n
           Goals _ -> Goals)"
        |qi|::|compile-string| |qi|::|process_asm_to_functions|
        |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V645| |qi|::|V646|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6463 6463 (DEFUN compile-string (V650) ...)-629|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|compile-string| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|compile-string|
       #19Y(00 00 00 00 01 00 00 00 26 02 AD 38 05 71 89 31 63 19 02) ()
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V650|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6465 6502 (DEFUN process_constraint_functions (V655) ...)-630|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|process_constraint_functions| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|process_constraint_functions|
       #237Y(00 00 00 00 01 00 00 00 26 02 9E 20 36 9E 5B 20 32 9E 5B 78 25 00
             2C 9E 5B 5C 20 27 9E 5B 5C 5C 20 21 9E 5B 5C 5C 78 25 01 19 9E 5B
             5C 5C 5C 20 12 9E 5B 5C 5C 5C 78 25 02 09 9E 5B 5C 5C 5C 5C 21 80
             6A 9E 20 38 94 01 25 0D 33 9E 5C 20 2F 9E 5C 5B 20 2A 9E 5C 5B 78
             25 0E 23 9E 5C 5B 5C 20 1D 9E 5C 5B 5C 78 25 0F 15 9E 5C 5B 5C 5C
             20 0E 9E 5C 5B 5C 5C 5B 1C 06 9E 5C 5C 1D 80 62 9E 20 80 66 94 01
             25 0D 80 60 9E 5C 20 80 5B 9E 5C 5C 1C 80 55 EA EC ED E0 E1 E2 00
             5D 5D 7A A2 5C 78 2F 14 14 00 5D 5D 5D 7A 00 5D 5D 19 02 94 01 95
             00 95 00 95 00 95 00 94 00 DD 6F 04 AC 94 06 AF 95 0B 2D 04 05 AC
             AE E0 E1 E2 00 5D 5D 7A 63 E3 E4 E5 E6 00 5D 5D 5D 5D 5D 7A 33 02
             23 5D 19 09 EA EB E3 E4 D0 1B FF BA EF 2F 16 19 02)
       (|qi|::|find| |qi|::|with| |qi|::|constraints| "g" |qi|::|gensym|
        |qi|::|generate_search_function| |qi|::|append| |qi|::|Accum|
        |qi|::|Context| |qi|::|Sequents| |qi|::|Notes| |qi|::|Proof|
        |qi|::|Parameters| |qi|::|in| |qi|::|prove| |qi|::|sequents|
        |qi|::|collect_or_return| |qi|::|list| |qi|::|let| |qi|::|Assumptions|
        |qi|::|process_out_call| |qi|::|process_constraint_functions|
        |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V655|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6504 6531 (DEFUN process_out_call (V666) ...)-631|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|process_out_call| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|process_out_call|
       #201Y(00 00 00 00 01 00 00 00 26 02 9E 20 23 94 01 25 00 1E 9E 5C 20 1A
             9E 5C 5C 20 15 9E 5C 5C 78 25 01 0E 9E 5C 5C 5C 20 08 9E 5C 5C 5C
             5C 1D 80 5B 9E 20 3C 94 01 25 03 37 9E 5C 20 33 9E 5C 5C 20 2E 9E
             5C 5C 78 25 04 27 9E 5C 5C 5C 20 21 9E 5C 5C 5C 5C 20 1A 9E 5C 5C
             5C 5C 78 25 05 11 9E 5C 5C 5C 5C 5C 20 09 9E 5C 5C 5C 5C 5C 5C 1D
             31 9E 20 14 94 01 25 06 0F 9E 5C 20 0B 9E 5C 78 25 07 05 9E 5C 5C
             21 33 E6 2F 0D 19 02 95 01 DA 94 01 9F 5C 5C 78 6C FF 73 6B 02 00
             5D 5D 5D 5D 19 03 95 01 95 00 95 00 DD 94 03 94 02 A0 5C 5C 78 6C
             FF 58 00 5D 5D 5D 5D 19 05 E2 9F 5C 5C 78 6F 09 E4 E5 00 5D 5D 5D
             5D 19 02)
       (|qi|::|if| |qi|::|then| |qi|::|*qi-failure-object*| |qi|::|let|
        |qi|::|be| |qi|::|in| |qi|::|prove| |qi|::|sequents| |qi|::|list|
        |qi|::|compose_sequents| |qi|::|Notes| |qi|::|Proof|
        |qi|::|process_out_call| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V666|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6533 6548 (DEFUN compose_sequents (V671) ...)-632|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|compose_sequents| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|compose_sequents|
       #113Y(00 00 00 00 01 00 00 00 26 02 92 01 34 C5 19 02 DB DC A0 5B 5C 78
             70 03 95 03 6C 22 00 5D 5D 5D 19 02 94 01 DB DE DF A0 5B 7A DC 00
             5D 5D 7A 9F 5C 78 70 03 95 04 6C 06 00 5D 5D 5D 19 03 93 01 4C 9E
             20 15 9E 5B 20 11 9E 5B 5B 1C 0C 9E 5B 5C 20 07 9E 5B 5C 5C 1D FF
             B7 9E 20 10 9E 5B 20 0C 9E 5B 5C 20 07 9E 5B 5C 5C 1D FF B6 E0 2F
             07 19 02)
       (|qi|::|Sequents| |qi|::|cons| |qi|::|Assumptions| |qi|::|@p|
        |qi|::|append| |qi|::|list| |qi|::|compose_sequents|
        |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V671|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6550 6558 (DEFUN generate_search_function (V673 V674 V675 ...) ...)-633|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|generate_search_function| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|generate_search_function|
       #233Y(00 00 00 00 04 00 00 00 26 05 38 02 72 8F AE 6F 00 00 10 01 DC B1
             38 02 31 95 B5 B1 31 90 DD B1 38 02 31 95 B3 1B 14 B1 2F 04 10 05
             94 03 83 04 B5 31 8D 11 B1 2F 06 E1 B2 31 94 AC 8D 9F 68 16 01 E2
             B1 38 02 31 95 B0 2F 04 10 05 B7 B4 31 8D 11 B0 2F 06 E3 B1 38 02
             31 95 B0 2F 04 10 05 B2 B4 31 8D 11 B0 2F 06 E4 B1 38 02 31 95 B3
             1B 14 B1 2F 04 10 05 94 03 83 04 B5 31 8D 11 B1 2F 06 E1 B2 31 94
             AC 8D 9F 68 16 01 E5 B1 38 02 31 95 B5 B1 31 90 E1 B1 31 94 B3 1B
             14 B1 2F 04 10 05 94 03 83 04 B5 31 8D 11 B1 2F 06 E1 B2 31 94 AC
             8D 9F 68 16 01 E6 B1 38 02 31 95 B3 1B 14 B1 2F 04 10 05 94 03 83
             04 B5 31 8D 11 B1 2F 06 E1 B2 31 94 AC 8D 9F 68 16 01 E7 B1 38 02
             31 95 11 16 01 AC 81 90 00 2F 0E 19 05)
       (|qi|::|process_constraint_functions| |SYSTEM|::|*FORMAT-CS*| "(define "
        "\n
                   "
        |SYSTEM|::|STREAM-START-S-EXPRESSION|
        |COMMON-LISP|::|*PRINT-RIGHT-MARGIN*|
        |SYSTEM|::|STREAM-END-S-EXPRESSION| #\Space "(cons "
        " Context) Accum Sequents Notes Proof Parameters <- "
        "\n
                   "
        "(cons C1234 Context) Accum Sequents Notes Proof Parameters\n
                    -> ("
        "Context (cons C1234 Accum) Sequents Notes Proof Parameters)\n
                   "
        "_ _ _ _ _ _ -> #\\Escape)" |qi|::|compile-string|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V673| |qi|::|V674| |qi|::|V675| |qi|::|V676|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6560 6561 (DEFUN compile-datatype (V677 V678) ...)-634|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|compile-datatype| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|compile-datatype|
       #18Y(00 00 00 00 02 00 00 00 26 03 AE AE 70 00 2F 01 19 03)
       (|qi|::|compile-datatype-help| |qi|::|compile_logic_string|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V677| |qi|::|V678|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6563 6571 (DEFUN compile-datatype-help (V679 V680) ...)-635|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|compile-datatype-help| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|compile-datatype-help|
       #64Y(00 00 00 00 02 00 00 00 26 03 92 01 21 00 19 03 AE 94 02 70 02 AF
            95 03 28 11 5D 19 03 AE 94 02 6F 03 95 03 73 02 23 29 02 05 00 93
            01 5F 9E 20 07 94 01 6F 00 88 01 58 9E 21 62 DE 2F 05 19 03)
       (|qi|::|single_underline?| |qi|::|wrapper| |qi|::|compile-datatype-rule|
        |qi|::|unfold_double_underline| |qi|::|compile-datatype-help|
        |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V679| |qi|::|V680|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6573 6580 (DEFUN single_underline? (V685) ...)-636|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|single_underline?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|single_underline?|
       #48Y(00 00 00 00 01 00 00 00 26 02 9E 20 1D 9E 5C 20 19 9E 5C 5C 20 14
            9E 5C 5C 78 25 00 0D 9E 5C 5C 5C 20 07 9E 5C 5C 5C 5C 1D 03 C7 19
            02 C6 19 02)
       (|qi|::|underline| |qi|::|true| |qi|::|false|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|V685|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6582 6600 (DEFUN unfold_double_underline (V686) ...)-637|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|unfold_double_underline| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|unfold_double_underline|
       #120Y(00 00 00 00 01 00 00 00 26 02 9E 20 36 9E 5C 20 32 9E 5C 5C 20 2D
             9E 5C 5C 5C 20 27 9E 5C 5C 5C 5B 20 20 9E 5C 5C 5C 5B 5B 1C 18 9E
             5C 5C 5C 5B 5C 20 10 9E 5C 5C 5C 5B 5C 5C 1C 07 9E 5C 5C 5C 5C 1D
             05 DE 2F 05 19 02 94 01 95 02 94 00 95 01 95 00 DA 6F 01 B1 B0 DC
             A1 5D 5D 7A B2 B1 6F 03 AF 00 5D 7A 00 7A DC A2 5B 79 B1 00 5D 7A
             00 5D 5D 5D 7A 00 5D 5D 19 08)
       ("P" |qi|::|gensym| |qi|::|underline| |qi|::|insert_as_assumptions|
        |qi|::|unfold_double_underline| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V686|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6602 6607 (DEFUN insert_as_assumptions (V692) ...)-638|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|insert_as_assumptions| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|insert_as_assumptions|
       #58Y(00 00 00 00 01 00 00 00 26 02 92 01 11 00 19 02 9E 5B 5C 78 95 02
            28 03 5D 19 02 93 01 6F 9E 20 14 9E 5B 20 10 9E 5B 5B 1C 0B 9E 5B
            5C 20 06 9E 5B 5C 5C 1D 5B DA 2F 01 19 02)
       (|qi|::|insert_as_assumptions| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V692|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6609 6610 (DEFUN compile_logic_string (V693) ...)-639|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|compile_logic_string| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|compile_logic_string|
       #73Y(00 00 00 00 01 00 00 00 26 02 38 02 72 8F 00 10 00 B1 1B 26 94 00
            83 01 1B 14 DB B2 31 94 B1 2F 02 10 03 94 03 83 04 B5 31 8D 11 B1
            2F 04 AC 8D 9F 68 16 01 DF B1 38 02 31 95 AC 8D 9F 56 16 01 11 AC
            81 90 00 2F 06 19 02)
       (|SYSTEM|::|*FORMAT-CS*| #\Space |SYSTEM|::|STREAM-START-S-EXPRESSION|
        |COMMON-LISP|::|*PRINT-RIGHT-MARGIN*|
        |SYSTEM|::|STREAM-END-S-EXPRESSION| ".\n\n" |qi|::|defprolog|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V693|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6612 6612 (DEFUN compile-datatype-rule (V694 V695) ...)-640|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|compile-datatype-rule| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|compile-datatype-rule|
       #19Y(00 00 00 00 02 00 00 00 26 03 AE AE DA 70 01 30 02 19 03)
       (|qi|::|logic| |qi|::|asm| |qi|::|interp_asm|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V694| |qi|::|V695|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6614 6629 (DEFUN interp_asm (V5377 V5378) ...)-641|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|interp_asm| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|interp_asm|
       #117Y(00 00 00 00 02 00 00 00 26 03 9E 20 80 62 94 01 25 00 80 5C 9E 5C
             20 80 57 9E 5C 5C 20 80 51 9E 5C 5C 78 25 01 80 49 9E 5C 5C 5C 20
             80 42 9E 5C 5C 5C 78 25 02 3A 9E 5C 5C 5C 5C 20 33 9E 5C 5C 5C 5C
             5C 1C 2B 95 01 94 00 9E 5C 5C 5C 78 6F 03 AC 6F 04 24 05 0F B1 AE
             6F 06 E1 00 5D 7A E2 A0 5D 5D 5D 19 06 B1 AE 6F 06 E1 00 5D 7A 00
             1B 71 E3 2F 0A 19 03)
       (|qi|::|match| |qi|::|and| |qi|::|then| |qi|::|ia*| |qi|::|empty?|
        |qi|::|true| |qi|::|insert_type_mode_decl| |qi|::|Context| :|-|
        |qi|::|interp_asm| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5377| |qi|::|V5378|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6631 6643 (DEFUN insert_type_mode_decl (V5365) ...)-642|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|insert_type_mode_decl| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|insert_type_mode_decl|
       #74Y(00 00 00 00 01 00 00 00 26 02 9E 20 15 9E 5C 20 11 9E 5C 78 25 00
            0B 9E 5C 5C 20 06 9E 5C 5C 5C 1D 06 9E 21 1E 9E 19 02 DB 94 02 6C
            5D DA DB A2 5C 5C 78 DC 00 5D 5D 7A 00 5D 5D 7A DD 00 5D 5D 5D 19
            02 DE AE 33 00 16 19 02)
       (|qi|::|$$| |qi|::|mode| |COMMON-LISP|::|+| |COMMON-LISP|::|-|
        |qi|::|insert_type_mode_decl|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5365|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6645 6691 (DEFUN ia* (V701) ...)-643|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|ia*| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|ia*|
       #330Y(00 00 00 00 01 00 00 00 26 02 9E 20 80 EE 9E 5B 20 80 E9 9E 5B 78
             25 00 80 E2 9E 5B 5C 20 80 DC 9E 5B 5C 5C 20 80 D5 9E 5B 5C 5C 78
             25 01 80 CC 9E 5B 5C 5C 5C 20 80 C4 9E 5B 5C 5C 5C 78 25 02 80 BA
             9E 5B 5C 5C 5C 5C 20 80 B1 9E 5B 5C 5C 5C 5C 5C 20 80 A7 9E 5B 5C
             5C 5C 5C 5C 78 25 03 80 9B 9E 5B 5C 5C 5C 5C 5C 5C 20 80 90 9E 5B
             5C 5C 5C 5C 5C 5C 5C 20 80 84 9E 5B 5C 5C 5C 5C 5C 5C 5C 78 25 04
             80 76 9E 5B 5C 5C 5C 5C 5C 5C 5C 5C 20 80 69 9E 5B 5C 5C 5C 5C 5C
             5C 5C 5C 78 25 05 80 5A 9E 5B 5C 5C 5C 5C 5C 5C 5C 5C 5C 20 80 4C
             9E 5B 5C 5C 5C 5C 5C 5C 5C 5C 5C 78 25 06 3D 9E 5B 5C 5C 5C 5C 5C
             5C 5C 5C 5C 5C 20 2F 9E 5B 5C 5C 5C 5C 5C 5C 5C 5C 5C 5C 78 25 07
             1F 9E 5B 5C 5C 5C 5C 5C 5C 5C 5C 5C 5C 5C 20 10 9E 5B 5C 5C 5C 5C
             5C 5C 5C 5C 5C 5C 5C 5C 1D 16 9E 20 0E 94 01 25 03 09 9E 5C 20 05
             9E 5C 5C 1D 36 E7 2F 0E 19 02 94 01 95 00 95 00 95 00 95 00 94 00
             95 01 95 00 E2 6F 09 AC 94 08 B1 2D 03 0A AC B0 94 03 A1 5C 5C 5C
             5C 5C 78 6E 03 0B 95 0C 28 FE CB 5D 5D 19 0B 9E 5C 78 2F 0C 19 02)
       (|qi|::|find| |qi|::|with| |qi|::|constraints| |qi|::|in| |qi|::|and|
        |qi|::|generate| |qi|::|new| |qi|::|context| "find" |qi|::|gensym|
        |qi|::|generate_search_clause| |qi|::|generate_search_literal|
        |qi|::|ia-output| |qi|::|ia*| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V701|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6693 6694 (DEFUN generate_search_literal (V710 V711 V712) ...)-644|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|generate_search_literal| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|generate_search_literal|
       #21Y(00 00 00 00 03 00 00 00 26 04 AF AF AF 00 5D 7A 33 02 23 19 04) ()
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|V710| |qi|::|V711| |qi|::|V712|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6696 6702 (DEFUN generate_search_clause (V713 V714 V715) ...)-645|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|generate_search_clause| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|generate_search_clause|
       #185Y(00 00 00 00 03 00 00 00 26 04 38 02 72 8F AF 6F 00 00 10 01 DC B1
             38 02 31 95 B4 B1 31 90 DD B1 31 94 B2 1B 14 B1 2F 04 10 05 94 03
             83 04 B5 31 8D 11 B1 2F 06 E1 B2 31 94 AC 8D 9F 68 16 01 E2 B1 38
             02 31 95 B0 2F 04 10 05 B2 B4 31 8D 11 B0 2F 06 E3 B1 38 02 31 95
             B4 B1 31 90 DD B1 31 94 B2 1B 14 B1 2F 04 10 05 94 03 83 04 B5 31
             8D 11 B1 2F 06 E1 B2 31 94 AC 8D 9F 68 16 01 E4 B1 38 02 31 95 B4
             B1 31 90 DD B1 31 94 B2 1B 14 B1 2F 04 10 05 94 03 83 04 B5 31 8D
             11 B1 2F 06 E1 B2 31 94 AC 8D 9F 68 16 01 E5 B1 38 02 31 95 11 16
             01 AC 81 90 00 2F 0C 19 04)
       (|qi|::|insert_type_mode_decl| |SYSTEM|::|*FORMAT-CS*| "\n\n" #\(
        |SYSTEM|::|STREAM-START-S-EXPRESSION|
        |COMMON-LISP|::|*PRINT-RIGHT-MARGIN*|
        |SYSTEM|::|STREAM-END-S-EXPRESSION| #\Space "(mode ["
        " | Context59739] -) Context59739).\n
                         \n"
        "(mode [P59739 | Context59739] -) [P59739 | NewContext59739])\n
                          :- "
        "Context59739 NewContext59739)." |qi|::|defprolog|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V713| |qi|::|V714| |qi|::|V715|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6704 6740 (DEFUN ia-output (V15) ...)-646|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|ia-output| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|ia-output|
       #341Y(00 00 00 00 01 00 00 00 26 02 9E 20 23 94 01 25 00 1E 9E 5C 20 1A
             9E 5C 5C 20 15 9E 5C 5C 78 25 01 0E 9E 5C 5C 5C 20 08 9E 5C 5C 5C
             5C 1D 80 D8 9E 20 3D 94 01 25 03 38 9E 5C 20 34 9E 5C 5C 20 2F 9E
             5C 5C 78 25 04 28 9E 5C 5C 5C 20 22 9E 5C 5C 5C 5C 20 1B 9E 5C 5C
             5C 5C 78 25 05 12 9E 5C 5C 5C 5C 5C 20 0A 9E 5C 5C 5C 5C 5C 5C 1D
             80 AA 9E 20 80 5A 94 01 25 07 80 54 9E 5C 20 80 4F 9E 5C 78 25 08
             80 48 9E 5C 5C 20 80 42 9E 5C 5C 78 25 09 3B 9E 5C 5C 5C 20 35 9E
             5C 5C 5C 78 25 0A 2D 9E 5C 5C 5C 5C 20 26 9E 5C 5C 5C 5C 5C 20 1E
             9E 5C 5C 5C 5C 5C 78 25 05 14 9E 5C 5C 5C 5C 5C 5C 20 0B 9E 5C 5C
             5C 5C 5C 5C 5C 1D 80 65 9E 20 32 94 01 25 0D 2D 9E 5C 20 29 9E 5C
             78 25 0A 23 9E 5C 5C 20 1E 9E 5C 5C 5C 20 18 9E 5C 5C 5C 78 25 05
             10 9E 5C 5C 5C 5C 20 09 9E 5C 5C 5C 5C 5C 1D 80 44 E8 2F 0F 19 02
             95 01 DC 94 01 00 7A 9F 5C 5C 78 28 FE F4 5D 5D 19 03 95 01 95 00
             95 00 E0 94 03 94 02 00 5D 7A 9F 5C 5C 78 28 FE DB 5D 5D 19 05 95
             01 95 00 95 00 95 00 E5 94 01 9F 5C 5C 78 30 0C 5D 19 06 95 01 95
             00 94 00 9E 5C 5C 78 30 0C 19 04)
       (|qi|::|if| |qi|::|then| |qi|::|when!| |qi|::|let| |qi|::|be| |qi|::|in|
        |qi|::|is!| |qi|::|commit| |qi|::|to| |qi|::|proving| |qi|::|sequents|
        |qi|::|!| |qi|::|ia-sequents| |qi|::|prove| |qi|::|ia-output|
        |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|V15|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6742 6750 (DEFUN ia-sequents (V724 V725) ...)-647|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|ia-sequents| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|ia-sequents|
       #65Y(00 00 00 00 02 00 00 00 26 03 92 02 1D 00 19 03 94 02 DA 9E 5C 78
            94 02 B1 70 01 00 5D 7A 95 05 B1 28 04 5D 5D 19 04 93 02 63 9F 20
            0F 9F 5B 20 0B 9F 5B 5C 20 06 9F 5B 5C 5C 1D 54 DC 2F 03 19 03)
       (|qi|::|typecheck| |qi|::|cons_each| |qi|::|ia-sequents|
        |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V724| |qi|::|V725|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6752 6756 (DEFUN cons_each (V727 V728) ...)-648|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|cons_each| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|cons_each|
       #41Y(00 00 00 00 02 00 00 00 26 03 92 02 14 9E 19 03 DA 94 03 95 04 B0
            6C 06 00 5D 5D 5D 19 03 93 02 6C 9F 21 6C DB 2F 02 19 03)
       (|qi|::|cons| |qi|::|cons_each| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V727| |qi|::|V728|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6758 6761 (DEFUN create_clause_head (V729 V730) ...)-649|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|create_clause_head| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|create_clause_head|
       #27Y(00 00 00 00 02 00 00 00 26 03 AE DA AF DB 00 5D 5D 7A 6F 02 DD 00
            5D 5D 5D 19 03)
       (|qi|::|mode| |COMMON-LISP|::|-| |qi|::|insert_type_mode_decl|
        |qi|::|Context|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V729| |qi|::|V730|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6763 6782 (DEFUN asm (V731 V732) ...)-650|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|asm| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|asm|
       #109Y(00 00 00 00 02 00 00 00 26 03 9F 20 35 9F 5C 20 31 9F 5C 5C 20 2C
             9F 5C 5C 78 25 00 25 9F 5C 5C 5C 20 1F 9F 5C 5C 5C 5B 20 18 9F 5C
             5C 5C 5B 5C 20 10 9F 5C 5C 5C 5B 5C 5C 1C 07 9F 5C 5C 5C 5C 1D 05
             E1 2F 08 19 03 95 02 95 00 95 00 94 00 95 00 94 00 DB AD DC DD 94
             06 94 0D 94 0B B3 6F 04 DF BC 6E 06 06 00 5D 5D 5D 5D 5D 19 09)
       (|qi|::|underline| |qi|::|match| |qi|::|and| |qi|::|then|
        |qi|::|extract_variables| |qi|::|Context| |qi|::|tail-sequent|
        |qi|::|asm| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V731| |qi|::|V732|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6784 6807 (DEFUN tail-sequent (V741 V742 V743 ...) ...)-651|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|tail-sequent| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|tail-sequent|
       #103Y(00 00 00 00 06 00 00 00 26 00 92 06 80 50 DA B2 B2 B1 6E 03 01 00
             5D 5D 19 07 94 06 95 07 AD 6F 02 AD B5 B5 00 5D 5D 7A 6F 02 DD 6F
             04 DF B1 E0 E1 B6 B3 BA B4 6E 04 08 DA B9 E3 E4 E5 E6 B7 00 5D 5D
             5D 5D 5D 5D 5D 5D 5D 5D 5D 7A B0 B8 B8 B2 B9 70 0D B1 B8 28 03 5D
             19 0C 93 06 FF B0 A3 21 FF B8 E8 2F 0F 19 07)
       (|qi|::|in| |qi|::|sides-sequent| |qi|::|extract_variables| "NewContext"
        |qi|::|gensym| |qi|::|find| |qi|::|with| |qi|::|constraints|
        |qi|::|calculate_constraints| |qi|::|and| |qi|::|generate| |qi|::|new|
        |qi|::|context| |qi|::|union| |qi|::|tail-sequent|
        |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V741| |qi|::|V742| |qi|::|V743| |qi|::|V744| |qi|::|V745|
        |qi|::|V746|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6809 6814 (DEFUN calculate_constraints (V758 V759 V760 ...) ...)-652|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|calculate_constraints| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|calculate_constraints|
       #35Y(00 00 00 00 04 00 00 00 26 05 B0 24 00 09 B0 24 03 0E DE 2F 05 19
            05 AF AF AF 70 01 30 02 19 05 9F 19 05)
       (|qi|::|logic| |qi|::|union| |qi|::|intersection| |qi|::|functional|
        |qi|::|calculate_constraints| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V758| |qi|::|V759| |qi|::|V760| |qi|::|V761|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6816 6821 (DEFUN intersection (V769 V770) ...)-653|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|intersection| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|intersection|
       #55Y(00 00 00 00 02 00 00 00 26 03 92 02 17 00 19 03 94 02 95 03 AF 28
            0A 5D 19 03 95 02 AE 29 02 05 00 93 02 69 9F 20 08 94 02 AE 70 00
            88 01 61 9F 21 68 DC 2F 03 19 03)
       (|qi|::|element?| |qi|::|wrapper| |qi|::|intersection|
        |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V769| |qi|::|V770|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6823 6846 (DEFUN sides-sequent (V180 V181 V182) ...)-654|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|sides-sequent| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|sides-sequent|
       #187Y(00 00 00 00 03 00 00 00 26 04 92 03 21 AE AE 30 00 19 04 DB A1 5B
             5C 78 DC 95 06 B2 B2 6C 0C 00 1B 80 52 95 03 AF AF 29 03 07 00 93
             03 5F A0 20 15 A0 5B 20 11 A0 5B 78 25 01 0B A0 5B 5C 20 06 A0 5B
             5C 5C 1D 4D A0 20 15 A0 5B 20 11 A0 5B 78 25 03 0B A0 5B 5C 20 06
             A0 5B 5C 5C 1D 45 A0 20 36 94 03 25 04 31 A0 5C 1C 2D DF E0 E1 E2
             B2 E3 B3 00 5D 5D 5D 5D 5D 5D 5D 19 04 94 03 95 00 E4 94 01 E5 A0
             5C 78 E3 95 0A B6 B6 6C FF 9D 00 5D 5D 5D 5D 5D 5D 19 06 A0 20 1C
             A0 5B 20 18 A0 5B 78 25 0A 12 A0 5B 5C 20 0D A0 5B 5C 5C 20 07 A0
             5B 5C 5C 5C 1D 45 E6 2F 0D 19 04)
       (|qi|::|out-sequents| |qi|::|if| |qi|::|then| |qi|::|name|
        |qi|::|commit!| |qi|::|commit| |qi|::|to| |qi|::|proving|
        |qi|::|sequents| |qi|::|in| |qi|::|let| |qi|::|be|
        |qi|::|sides-sequent| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V180| |qi|::|V181| |qi|::|V182|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6848 6849 (DEFUN out-sequents (V776 V777) ...)-655|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|out-sequents| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|out-sequents|
       #23Y(00 00 00 00 02 00 00 00 26 03 DA DB B0 DC B1 00 5D 5D 5D 5D 5D 19
            03)
       (|qi|::|prove| |qi|::|sequents| |qi|::|in|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|V776| |qi|::|V777|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6851 6865 (DEFUN prooftool (V5689) ...)-656|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|prooftool| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|prooftool|
       #89Y(00 00 00 00 01 00 00 00 26 02 AD 24 00 1F AD 25 0D 3D E4 8D 57 39
            E8 6B 02 6B 03 33 02 15 C9 0F 05 38 01 31 D4 0F 0B 6B 0A 2F 0C 19
            02 DB 6B 02 6B 03 33 02 15 C9 0F 05 E0 6F 07 2E 08 14 70 09 00 7A
            01 02 00 5D 5D 5D 0F 0A 1B 55 D4 1B 05 AD 24 0D 79 D6 14 2F 10 19
            02)
       (|COMMON-LISP|::|-|
        #Y(|qi|::|prooftool-1|
           #33Y(00 00 00 00 02 00 00 00 21 18 00 10 00 DB B3 38 02 31 95 B1 B3
                31 90 DC B3 38 02 31 95 A1 11 19 04)
           (|SYSTEM|::|*FORMAT-CS*| "\n\n" "\n\n")
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        |COMMON-LISP|::|*STANDARD-OUTPUT*| |qi|::|*atp-credits*| 0.
        |qi|::|*inferences*| 1. |qi|::|enter_assumptions|
        |qi|::|enter_conclusion| |qi|::|@p| |qi|::|*problem*| |qi|::|*start*|
        |qi|::|prooftool_loop| |COMMON-LISP|::|+|
        #Y(|qi|::|prooftool-2|
           #33Y(00 00 00 00 02 00 00 00 21 18 00 10 00 DB B3 38 02 31 95 B1 B3
                31 90 DC B3 38 02 31 95 A1 11 19 04)
           (|SYSTEM|::|*FORMAT-CS*| "\n\n" "\n\n")
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        "prooftool expects a problem.~%" |qi|::|error|
        "prooftool expects a + or a -.~%")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5689|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6867 6873 (DEFUN enter_assumptions (V783) ...)-657|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|enter_assumptions| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|enter_assumptions|
       #50Y(00 00 00 00 01 00 00 00 26 02 DA AE 30 01 2E 02 78 6F 03 AC 24 04
            0E AC 6F 05 24 06 0B E2 2F 01 AE 29 01 04 65 00 19 03 AC 6F 07 96
            03 28 5B 5D 19 03)
       ("~A. " |qi|::|output| |qi|::|lineread| |qi|::|enter_format| |qi|::|ok|
        |qi|::|well_formed?| |qi|::|true| |qi|::|eval| "this is not a wff~%")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V783|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6875 6875 (DEFUN well_formed? (V784) ...)-658|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|well_formed?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|well_formed?|
       #21Y(00 00 00 00 01 00 00 00 26 02 63 AE DA 6E 03 01 DA 30 02 19 02)
       (|qi|::|wff| |qi|::|typechecks?| |qi|::|qi_=|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V784|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6877 6877 (DEFUN enter_format (X) ...)-659|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|enter_format| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|enter_format|
       #24Y(00 00 00 00 01 00 00 00 26 02 2E 00 14 24 01 03 9E 19 02 AD 2F 02
            19 02)
       (|qi|::|pr_rb?| |qi|::|true| |qi|::|insert_conses|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|X|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6879 6882 (DEFUN insert_conses (X) ...)-660|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|insert_conses| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|insert_conses|
       #29Y(00 00 00 00 01 00 00 00 26 02 9E 21 03 9E 19 02 DA 94 02 6C 75 95
            03 6C 71 61 03 19 02)
       (|qi|::|cons|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) (|qi|::|X|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6884 6888 (DEFUN enter_conclusion NIL ...)-661|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|enter_conclusion| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|enter_conclusion|
       #36Y(00 00 00 00 00 00 00 00 26 01 DA 2F 01 2E 02 78 6F 03 AC 6F 04 24
            05 07 E1 2F 01 29 00 02 6B AC 2F 06 19 02)
       ("~%~%?- " |qi|::|output| |qi|::|lineread| |qi|::|enter_format|
        |qi|::|well_formed?| |qi|::|true| |qi|::|eval| "this is not a wff~%")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6890 6899 (DEFUN prooftool_loop (V5699) ...)-662|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|prooftool_loop| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|prooftool_loop|
       #66Y(00 00 00 00 01 00 00 00 26 02 9E 20 13 9E 5B 1C 0F 9E 5C 20 0B 9E
            5C 5C 20 06 9E 5C 5C 5C 1D 12 AD 2F 04 2E 05 14 AC 6B 06 B0 70 07
            70 08 29 01 04 58 0E 00 5B 5B 0F 01 9E 5C 5C 5B 0F 02 2E 03 19 02)
       (|qi|::|*problem*| |qi|::|*thm*| |qi|::|*proof*| |qi|::|stats|
        |qi|::|print-first-sequent| |qi|::|read-tactic| |qi|::|*tactic*|
        |qi|::|update-proof| |qi|::|apply|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5699|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6901 6907 (DEFUN stats NIL ...)-663|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|stats| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|stats|
       #42Y(00 00 00 00 00 00 00 00 26 01 2E 00 14 6B 01 DC AE AE AF B1 8E AC
            10 B0 B2 73 01 3A 38 01 32 D1 14 2D 05 04 CA 19 03 C8 1B 76)
       (|qi|::|calculate-run-time| |qi|::|*inferences*|
        "~A seconds		~A refinement~P		~A RPS~%"
        |qi|::|infinite| |qi|::|output| |qi|::|proved|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6909 6909 (SETQ *inferences* 0)-664|
   #15Y(00 00 00 00 00 00 00 00 20 01 C5 0F 01 19 01) (0. |qi|::|*inferences*|)
   (|COMMON-LISP|::|NIL| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6911 6922 (DEFUN time-proof (V5378 V5379 V5380) ...)-665|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|time-proof| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|time-proof|
       #57Y(00 00 00 00 03 00 00 00 26 04 38 01 31 D4 0F 00 C6 0F 02 AF AF AF
            70 03 00 7A 01 02 00 5D 5D 7A 70 04 6F 05 AF AF 70 03 63 E0 E0 6B
            02 2D 05 07 2E 08 38 01 31 97 15 19 04)
       (|qi|::|*start*| 0. |qi|::|*inferences*| |qi|::|@p| |qi|::|apply|
        |qi|::|solved?| 1. |qi|::|print-sequent| |qi|::|stats|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5378| |qi|::|V5379| |qi|::|V5380|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6924 6926 (DEFUN solved? (V5711) ...)-666|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|solved?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|solved?|
       #23Y(00 00 00 00 01 00 00 00 26 02 9E 20 04 9E 5B 1D 03 C6 19 02 C5 19
            02)
       (|qi|::|true| |qi|::|false|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
       (|qi|::|V5711|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6928 6933 (DEFUN calculate-run-time NIL ...)-667|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|calculate-run-time| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|calculate-run-time|
       #29Y(00 00 00 00 00 00 00 00 26 01 DA 38 01 71 D4 6B 01 73 01 38 DC 73
            01 3A 33 02 39 19 01)
       (1.0f0 |qi|::|*start*|
        #.|COMMON-LISP|::|INTERNAL-TIME-UNITS-PER-SECOND|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6935 6942 (DEFUN print-first-sequent (V5360) ...)-668|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|print-first-sequent| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|print-first-sequent|
       #62Y(00 00 00 00 01 00 00 00 26 02 9E 20 13 9E 5B 20 0F 9E 5C 20 0B 9E
            5C 5C 20 06 9E 5C 5C 5C 1D 05 DD 2F 04 19 02 94 01 95 02 94 01 94
            01 AF 6F 00 A0 5C 78 6F 00 72 B1 6B 01 2D 05 02 19 04)
       (|qi|::|length| |qi|::|*inferences*| |qi|::|print-sequent|
        |qi|::|print-first-sequent| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5360|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6944 6955 (DEFUN update-proof (V5716 V5717) ...)-669|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|update-proof| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|update-proof|
       #61Y(00 00 00 00 02 00 00 00 26 03 9E 20 0F 9E 5C 20 0B 9E 5C 5C 20 06
            9E 5C 5C 5C 1D 05 DB 2F 02 19 03 94 01 95 02 94 00 AE AD B0 AF B5
            6B 00 00 5D 5D 5D 7A A1 5C 5B 7A 00 5D 5D 5D 19 06)
       (|qi|::|*inferences*| |qi|::|update-proof| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5716| |qi|::|V5717|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6957 6967 (DEFUN print-sequent (V5370 V5371 V5372 ...) ...)-670|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|print-sequent| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|print-sequent|
       #58Y(00 00 00 00 05 00 00 00 26 06 B1 6F 00 88 01 05 E7 2F 0E 19 06 DC
            2F 03 DE AF B1 B0 B1 2D 05 03 B0 2F 05 E0 2F 03 E1 B2 E2 72 43 2F
            09 E4 2F 03 E5 E1 B3 E5 72 43 30 0C 19 06)
       (|qi|::|tuple?| |qi|::|wrapper|
        "________________________________________________~%" |qi|::|output|
        "Step ~A. [~A]			~A refinement~P~%~%"
        |qi|::|print-notes| "?- " |qi|::|TUPLE| 2. |qi|::|display-wff| "~%~%"
        1. |qi|::|display-wffs| |qi|::|print-sequent|
        |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5370| |qi|::|V5371| |qi|::|V5372| |qi|::|V5373| |qi|::|V5374|)
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6969 6971 (DEFUN print-notes (V5379) ...)-671|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|print-notes| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|print-notes|
       #22Y(00 00 00 00 01 00 00 00 26 02 93 01 06 DA AE 30 01 19 02 00 19 02)
       ("Notes: ~{~A ~}~%~%" |qi|::|output|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5379|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6973 6987 (DEFUN display-wff (V5360) ...)-672|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|display-wff| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|display-wff|
       #120Y(00 00 00 00 01 00 00 00 26 02 9E 20 1B 9E 5C 20 17 9E 5C 78 25 00
             11 9E 5C 5C 20 0C 9E 5C 5C 5C 1C 06 2E 01 14 88 02 0D 2E 01 14 89
             02 2B E2 9F 14 30 04 19 02 DD 94 02 30 04 DF 6B 06 33 01 15 E1 9F
             5C 5C 5B 1B 69 E3 94 02 30 0A E5 6B 06 33 01 15 E6 9F 5C 5C 5B 1B
             1A 9E 20 15 9E 5C 20 11 9E 5C 78 25 00 0B 9E 5C 5C 20 06 9E 5C 5C
             5C 1D 56 E7 9F 14 30 0A 19 02)
       (|qi|::|$$| |qi|::|pr_rb?| |qi|::|wrapper| "~S" |qi|::|outputrb|
        #Y(|qi|::|display-wff-1|
           #23Y(00 00 00 00 01 00 00 00 21 17 00 10 00 DB B2 38 02 31 95 A1 11
                19 03)
           (|SYSTEM|::|*FORMAT-CS*| " : ")
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        |COMMON-LISP|::|*STANDARD-OUTPUT*| "~S" "~S" "~S" |qi|::|output|
        #Y(|qi|::|display-wff-2|
           #23Y(00 00 00 00 01 00 00 00 21 17 00 10 00 DB B2 38 02 31 95 A1 11
                19 03)
           (|SYSTEM|::|*FORMAT-CS*| " : ")
           (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
        "~S" "~S")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5360|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6989 6989 (DEFUN pr_rb? NIL ...)-673|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|pr_rb?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|pr_rb?| #14Y(00 00 00 00 00 00 00 00 26 01 0E 00 19 01)
       (|qi|::|*display-rb*|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6991 6997 (DEFUN display-wffs (V822 V823) ...)-674|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|display-wffs| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|display-wffs|
       #46Y(00 00 00 00 02 00 00 00 26 03 92 01 19 00 19 03 DA AF 30 01 94 01
            2F 02 DD 2F 01 96 02 95 02 29 02 05 00 93 01 67 9E 21 67 DE 2F 05
            19 03)
       ("~A. " |qi|::|output| |qi|::|display-wff| "~%" |qi|::|display-wffs|
        |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V822| |qi|::|V823|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6999 7005 (DEFUN read-tactic NIL ...)-675|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|read-tactic| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|read-tactic|
       #40Y(00 00 00 00 00 00 00 00 26 01 DA 6B 01 30 02 2E 03 0F 04 14 6F 05
            AC 6F 06 24 07 07 E3 2F 02 29 00 02 67 AC 2F 08 19 02)
       ("~%~A " |qi|::|*atp-prompt*| |qi|::|output| |qi|::|prooftool_lineread|
        |qi|::|*tactic*| |qi|::|extract_tactic| |qi|::|tactic?| |qi|::|true|
        |qi|::|eval| "error: this is not a tactic.~%")
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|7007 7008 (DEFUN prooftool_lineread NIL ...)-676|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|prooftool_lineread| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|prooftool_lineread|
       #43Y(02 00 01 00 00 00 00 00 26 01 63 4B 00 18 57 01 DC 2E 03 14 33 00
            16 16 04 1B 0D 58 9D 0A 00 00 04 4F 00 00 02 00 2E 04 4D 19 02)
       (#(|COMMON-LISP|::|NIL|) (#(|COMMON-LISP|::|ERROR| 17.) 1. . 1.)
        |qi|::|enter_format| |qi|::|lineread| |qi|::|query_exit|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|7010 7014 (DEFUN query_exit NIL ...)-677|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|query_exit| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|query_exit|
       #31Y(00 00 00 00 00 00 00 00 26 01 38 04 31 83 DA 88 01 09 DD 6B 04 30
            05 2E 06 19 01 DC 33 00 1E)
       ("Exit proof? " |COMMON-LISP|::|Y-OR-N-P| "Proof aborted.~%" "~%~A "
        |qi|::|*atp-prompt*| |qi|::|output| |qi|::|prooftool_lineread|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|7016 7016 (SETQ *atp-prompt* ">")-678|
   #15Y(00 00 00 00 00 00 00 00 20 01 C5 0F 01 19 01)
   (">" |qi|::|*atp-prompt*|)
   (|COMMON-LISP|::|NIL| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|7018 7025 (DEFUN tactic? (V824) ...)-679|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|tactic?| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|tactic?|
       #53Y(00 00 00 00 01 00 00 00 26 02 9E 20 0E 94 01 25 00 09 9E 5C 20 05
            9E 5C 5C 1D 17 63 AE DC DD DC 00 5D 5D 7A 6E 03 04 DC DD DC 00 5D
            5D 7A 30 05 19 02 C6 19 02)
       (|qi|::|back| |qi|::|true| |qi|::|goals| |qi|::|-->| |qi|::|typechecks?|
        |qi|::|qi_=|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V824|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|7027 7030 (DEFUN extract_tactic (V825) ...)-680|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|extract_tactic| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|extract_tactic|
       #32Y(00 00 00 00 01 00 00 00 26 02 9E 20 04 9E 5C 1D 08 9E 21 09 DA 2F
            01 19 02 9E 5B 19 02 9E 19 02)
       (|qi|::|extract_tactic| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V825|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|7032 7047 (DEFUN back (V1241 V1242) ...)-681|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|back| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|back|
       #167Y(00 00 00 00 02 00 00 00 26 03 AE 24 00 80 5C 9E 20 80 55 9E 5C 20
             80 50 9E 5C 5C 20 80 4A 9E 5C 5C 5B 20 80 43 9E 5C 5C 5B 5B 20 3C
             9E 5C 5C 5B 5B 5C 20 34 9E 5C 5C 5B 5B 5C 5C 20 2B 9E 5C 5C 5B 5B
             5C 5C 5C 20 21 9E 5C 5C 5B 5B 5C 5C 5C 5C 1C 16 9E 5C 5C 5C 1C 10
             AE 6F 01 AC 24 02 19 AC 25 05 24 CA F8 88 07 25 E2 2F 09 9E 19 03
             C7 16 01 1B 71 CA 16 01 1B 6C AF DD 70 04 AC 24 02 6E AC 24 05 6F
             CB 1B 01 CB 14 AD 33 01 1E 95 01 95 00 94 00 94 00 97 06 94 01 9F
             5C 78 95 04 00 5D 5D 7A 29 02 09 FF 63)
       (-1. |qi|::|integer?| |qi|::|true| 0. |qi|::|qi_>=| |qi|::|false|
        "~S is not a boolean~%" |qi|::|wrapper|
        "Cannot process this command.~%" |qi|::|output|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V1241| |qi|::|V1242|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|7049 7057 (DEFUN thin (V838 V839) ...)-682|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|thin| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|thin|
       #72Y(00 00 00 00 02 00 00 00 26 03 9E 20 1B 9E 5B 20 17 9E 5B 78 6F 00
            89 01 0F 9E 5C 20 0B 9E 5C 5C 20 06 9E 5C 5C 5C 1D 05 E1 2F 08 19
            03 94 01 94 00 B0 DC AE DD 72 43 70 04 DC AE DF 72 43 70 06 9F 5C
            7A A1 5C 5D 19 05)
       (|qi|::|tuple?| |qi|::|wrapper| |qi|::|TUPLE| 1. |qi|::|thin*| 2.
        |qi|::|@p| |qi|::|thin| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V838| |qi|::|V839|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|7059 7062 (DEFUN thin* (V852 V853) ...)-683|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|thin*| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|thin*|
       #38Y(00 00 00 00 02 00 00 00 26 03 AE 25 00 03 9E 21 06 9E 21 07 9E 19
            03 9E 5C 19 03 94 01 97 03 95 03 28 67 5D 19 03)
       (1.) (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V852| |qi|::|V853|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|7064 7072 (DEFUN swap (V854 V855 V856) ...)-684|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|swap| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|swap|
       #74Y(00 00 00 00 03 00 00 00 26 04 9E 20 1B 9E 5B 20 17 9E 5B 78 6F 00
            89 01 0F 9E 5C 20 0B 9E 5C 5C 20 06 9E 5C 5C 5C 1D 05 E1 2F 08 19
            04 94 01 94 00 B1 B1 DC AF DD 72 43 6E 03 04 DC AE DF 72 43 70 06
            9F 5C 7A A1 5C 5D 19 06)
       (|qi|::|tuple?| |qi|::|wrapper| |qi|::|TUPLE| 1. |qi|::|exchange| 2.
        |qi|::|@p| |qi|::|swap| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V854| |qi|::|V855| |qi|::|V856|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|7074 7079 (DEFUN rotate (V863 V864 V865) ...)-685|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|rotate| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|rotate|
       #45Y(00 00 00 00 03 00 00 00 26 04 9E 20 0F 9E 5C 20 0B 9E 5C 5C 20 06
            9E 5C 5C 5C 1D 05 DB 2F 02 19 04 AF AF 94 03 6E 03 00 9F 5C 5D 19
            04)
       (|qi|::|exchange| |qi|::|rotate| |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V863| |qi|::|V864| |qi|::|V865|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|7081 7086 (DEFUN dump-proof (Filename) ...)-686|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|dump-proof| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|dump-proof|
       #49Y(00 00 00 00 01 00 00 00 26 02 38 02 72 8F 6B 00 00 10 01 AF B1 31
            90 B2 B1 31 90 11 16 01 AC 81 90 00 AC 2F 02 6B 03 72 63 DE 30 05
            2E 02 9F 19 03)
       (|qi|::|*qi_home_directory*| |SYSTEM|::|*FORMAT-CS*|
        |COMMON-LISP|::|DRIBBLE| |qi|::|*proof*| 1. |qi|::|dump-proof-help|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|Filename|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|7088 7101 (DEFUN dump-proof-help (V5371 V5372) ...)-687|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|dump-proof-help| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|dump-proof-help|
       #105Y(00 00 00 00 02 00 00 00 26 03 92 02 30 DA 6B 01 30 02 19 03 94 02
             94 00 95 01 95 00 94 02 94 02 B0 6F 03 B4 A1 5C 78 2D 05 04 DF 6B
             06 94 02 2D 03 02 95 06 96 06 29 02 09 00 93 02 50 9F 20 24 9F 5B
             20 20 9F 5B 5B 20 1B 9F 5B 5C 20 16 9F 5B 5C 5C 20 10 9F 5B 5C 5C
             5C 20 09 9F 5B 5C 5C 5C 5C 1D FF B0 E1 2F 08 19 03)
       ("proved in ~A refinements~%~%" |qi|::|*inferences*| |qi|::|output|
        |qi|::|length| |qi|::|print-sequent| "~%~A ~{~S ~}~%"
        |qi|::|*atp-prompt*| |qi|::|dump-proof-help|
        |qi|::|implementation_error|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
       (|qi|::|V5371| |qi|::|V5372|) |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|7103 7103 (DEFUN := (X Y) ...)-688|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (:|=| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(:|=| #17Y(00 00 00 00 02 00 00 00 20 03 AE AE 33 01 2F 19 03) ()
       (|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|7105 7106 (MAPC #'(LAMBDA # #) *sysfuncs*)-689|
   #35Y(00 00 00 00 00 00 00 00 20 01 6B 00 AC 1B 0B 94 00 AC 38 01 31 E6 16 01
        83 00 AC 8D 9F 71 16 01 15 19 01)
   (|qi|::|*sysfuncs*|)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|7108 7115 (MAPC #'(LAMBDA # #) '(listit true false ...))-690|
   #33Y(00 00 00 00 00 00 00 00 20 01 DA 1B 0B 94 00 AC 38 01 31 E6 16 01 83 00
        AC 8D 9F 71 16 01 C5 19 01)
   ((|qi|::|listit| |qi|::|true| |qi|::|false| |qi|::|@| |qi|::|{| |qi|::|}|
     |qi|::|->| |qi|::|<-| |qi|::|-->| |qi|::|_| |qi|::|$$| |qi|::|mlet|
     |qi|::|where| |qi|::|loaded| |qi|::|associated| |qi|::|boolean|
     |qi|::|symbol| |qi|::|string| |qi|::|character| |qi|::|list|
     |qi|::|number| |qi|::|array| |qi|::|constant?| |qi|::|;| |qi|::|&&|
     |qi|::|mode| |qi|::|name| |qi|::|>>| |qi|::|yes| |qi|::|no|
     |qi|::|Context| |qi|::|typecheck| |qi|::|wff| |qi|::|goals| |qi|::|Accum|
     |qi|::|Sequents| |qi|::|Notes| |qi|::|Proof| |qi|::|Parameters|
     |qi|::|Assumptions| |qi|::|ok| |qi|::|proved| |qi|::|compiled|
     |qi|::|verified| |qi|::|note| |qi|::|call| |qi|::|suppose|
     |qi|::|suppose!| |qi|::|when| |qi|::|when!| |qi|::|eval!| |qi|::|=!|
     |qi|::|profile-stats| |qi|::|profiled| |qi|::|-*-| |qi|::|-s-| |qi|::|is|
     |qi|::|is!| |qi|::|macroexpand| |qi|::|cases| |qi|::|y-combinator|
     |qi|::|commit!| |qi|::|cut*| |qi|::|parameter| |qi|::|-*-| |qi|::|-s-|
     |qi|::|-o-| |qi|::|-end-of-list-| |qi|::|!|))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|7117 7119 (DEFUN shadow NIL ...)-691|
   #20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
   (|qi|::|shadow| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
    #Y(|qi|::|shadow|
       #20Y(00 00 00 00 00 00 00 00 26 01 DA DB 31 E9 DC DB 31 E9 19 01)
       (|qi|::|!| :|COMMON-LISP-USER| :|=|)
       (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
       |COMMON-LISP|::|NIL| 1))
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|7121 7121 (shadow)-692| #14Y(00 00 00 00 00 00 00 00 20 01 2E 00 19 01)
   (|qi|::|shadow|) (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
